在 R Shiny 中传递动态输入和更新视觉对象答案

【问题标题】：Passing dynamic input and updating visual in R shiny在 R Shiny 中传递动态输入和更新视觉对象
【发布时间】：2018-01-29 16:19:59
【问题描述】：

下面的脚本在执行时会创建一个带有选择输入的 process_map()。选择“r1”、“r2”等资源后，我们会得到相应的流程图。但是，我想从 selectInput 栏中动态传递输入并更新 R 闪亮页面Snapshot for your reference 中的流程图。请帮忙。

## 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)

【问题讨论】：

您应该为社区提供最少的可重现示例来帮助您
您好，非常感谢您的回复，这是一个完整的代码和一个非常小的示例，大部分脚本包含安装和加载一些包，请运行代码自己查看，我只需要添加到地图的动态功能。
@Patrik_P，请帮忙，因为我无法继续前进。

标签： r shiny shinydashboard

【解决方案1】：

你可以的

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)

【讨论】：

Spellbound 先生，非常大的帮助，愿上帝保佑你 1000 岁。非常感谢。
您好 LukeA，我尝试在上面的代码中复制滑块功能而不是 selectInput，我在您的代码下方编写了一段新代码。请查看我的代码并提出建议。
嗨，LukeA，关于你之前为我提供的帮助，对于上面的帖子，我有一个疑问，我想你可以提供帮助：链接：stackoverflow.com/questions/46361495/…
tagList 是这里的魔法，我试图渲染 UI 但没有帮助投票
嗨@lukeA，我有一个用户点击数据来可视化，但是步骤太多，所以UI输出非常小，有没有办法我们可以处理缩放地图的大小。