Shiny多模块实例场景下如何实现全局输入参数跨模块共享

报错根因是Shiny模块默认存在命名空间隔离，仅能访问自身作用域下的input值，你删除模块内的bins输入后，模块内部调用input$bins无法匹配到对应输入项，返回NULL，导致hist函数的breaks参数非法触发报错。

只需给服务端模块新增入参，将顶层的全局bins作为响应式参数传入模块即可，修改后的完整代码如下：

1. 调整后的模块UI（删除模块内独立的bins输入） #

histogramUI <- 
  function(id){
    tagList(
    selectInput(NS(id, "var"), "Variable", choices = names(mtcars)),
    plotOutput(NS(id, "hist"))
  )
}

2. 调整后的模块服务端（新增参数接收外部传入的bins） #

histogramServer <- 
  function(id, global_bins){ # 新增参数接收全局bins响应式变量
    moduleServer(id, function(input, output, session){
      data <- reactive(mtcars[[input$var]])
      output$hist <- renderPlot({
        # 响应式变量调用时需加()获取最新值
        hist(data(), breaks = global_bins(), main = input$var)
      }, res = 96)
    })
  }

3. 调整后的应用启动代码 #

histogrammApp <- 
  function(){
    ui <- fluidPage(
      # 顶层全局bins输入
      numericInput("bins", "bins", value = 10, min = 1),
      histogramUI("hist1"),
      histogramUI("hist2")
    )
    server <- function(input, output, session){
      # 将全局bins包装为响应式对象传入两个模块
      histogramServer("hist1", global_bins = reactive(input$bins))
      histogramServer("hist2", global_bins = reactive(input$bins))
    }
    shinyApp(ui, server)
  }

该方案是Shiny模块共享状态的标准实现，调整后全局bins修改时两个直方图会同步更新，同时各自的变量选择参数仍保持独立。

内容的提问来源于stack exchange，提问作者TobiSonne