在R中传递动态输入和更新可视化

下面的脚本在执行时会使用select输入创建一个流程映射。选择r1、r2等资源后，我们得到相应的流程图。但是，我希望动态地从selectInput栏传递输入，并在R页面中更新流程图。请帮忙

## app.R ##
install.packages("bupaR")
install.packages("edeaR")
install.packages("eventdataR")
install.packages("processmapR")
install.packages("processmonitR")
install.packages("xesreadR")
install.packages("petrinetR")
install.packages("shiny")
install.packages("shinydashboard")
library(shiny)
library(shinydashboard)
library(bupaR)
library(edeaR)
library(eventdataR)
library(processmapR)
library(processmonitR)
library(xesreadR)
library(petrinetR)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(

selectInput("resources","Select the resource", c("r1","r2","r3","r4","r5"), 
selected = "r1",selectize = T)
),
dashboardBody(
filter_resource(patients,resources = c("r1","r2","r4"), reverse = F) %>% 
process_map()
))
server <- function(input, output) { 
}
shinyApp(ui, server)

你可以

library(shiny)
library(shinydashboard)
library(bupaR)
library(edeaR)
library(eventdataR)
library(processmapR)
library(processmonitR)
library(xesreadR)
library(petrinetR)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(

selectInput("resources","Select the resource", c("r1","r2","r3","r4","r5"),selected = "r1",selectize = T)
),
dashboardBody(
  uiOutput("ui")
))
server <- function(input, output) { 
  output$ui <- renderUI({
    r <- input$resources
    tagList(filter_resource(patients,resources = r, reverse = F) %>% process_map())
  })
}
shinyApp(ui, server)

你可以

library(shiny)
library(shinydashboard)
library(bupaR)
library(edeaR)
library(eventdataR)
library(processmapR)
library(processmonitR)
library(xesreadR)
library(petrinetR)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(

selectInput("resources","Select the resource", c("r1","r2","r3","r4","r5"),selected = "r1",selectize = T)
),
dashboardBody(
  uiOutput("ui")
))
server <- function(input, output) { 
  output$ui <- renderUI({
    r <- input$resources
    tagList(filter_resource(patients,resources = r, reverse = F) %>% process_map())
  })
}
shinyApp(ui, server)

---

您应该为社区提供最小的可复制示例，以帮助您解决问题。您好，非常感谢您的回复，这是一个完整的代码，包含一个非常小的示例，大部分脚本包含安装和加载一些包，请运行代码并亲自查看，我只需要将动态功能添加到地图。@Patrik_P，请帮助我，因为我无法继续下去。你应该为社区提供最小的可复制示例来帮助你。嗨，非常感谢你的回复，这是一个完整的代码，带有一个非常小的示例，大部分脚本包含安装和加载一些包，请运行代码并亲自查看，我只需要在地图上添加动态功能。@Patrik_P，我无法继续，请帮助我。迷住了的先生，非常大的帮助，愿上帝保佑你1000岁。非常感谢。嗨，LukeA，我尝试在上面的代码中复制slider功能而不是选择Input，我在代码下面写了一段新代码。请看我的代码和建议。你好，LukeA，关于你之前向我提供的帮助，在上面的帖子中，我有一个疑问，我想你可以提供帮助：link:tagList是这里的魔法，我试图渲染，但没有帮助upvotedHi@LukeA，我有一个用户点击数据来可视化，但是步骤太多，所以UIoutput很小，有没有办法处理地图的大小。迷惑的先生，非常大的帮助，愿上帝保佑你1000岁。非常感谢。嗨，LukeA，我尝试在上面的代码中复制slider功能而不是选择Input，我在代码下面写了一段新代码。请看我的代码和建议。你好，LukeA，关于你之前向我提供的帮助，在上面的帖子中，我有一个疑问，我想你可以提供帮助：link:tagList是这里的魔法，我试图渲染，但没有帮助upvotedHi@LukeA，我有一个用户点击数据可视化，但有太多的步骤，所以UIoutput是非常小的，有没有一种方法，我们可以处理规模的地图大小。