ShinyDashboard模块中Reactive Inputs使用故障求助

先贴出你提到的无模块可运行代码作为参考：

library(shiny)

ui <- fluidPage(
  selectizeInput("parent", "选择父类别", choices = c("水果", "蔬菜")),
  selectizeInput("child", "选择子类别", choices = NULL)
)

server <- function(input, output, session) {
  observeEvent(input$parent, {
    child_choices <- switch(input$parent,
                           "水果" = c("苹果", "香蕉", "橙子"),
                           "蔬菜" = c("白菜", "萝卜", "西红柿"))
    updateSelectizeInput(session, "child", choices = child_choices)
  })
}

shinyApp(ui, server)

下面是模块化的正确代码，解决你遇到的响应式失效问题：

模块UI定义 #

categorySelectUI <- function(id) {
  ns <- NS(id)
  tagList(
    selectizeInput(ns("parent"), "选择父类别", choices = c("水果", "蔬菜")),
    selectizeInput(ns("child"), "选择子类别", choices = NULL)
  )
}

模块Server逻辑 #

categorySelectServer <- function(id) {
  moduleServer(id, function(input, output, session) {
    # 监听父类别选择，更新子类别选项
    observeEvent(input$parent, {
      child_choices <- switch(input$parent,
                             "水果" = c("苹果", "香蕉", "橙子"),
                             "蔬菜" = c("白菜", "萝卜", "西红柿"))
      # 这里必须使用模块内部的session参数，无需额外加命名空间
      updateSelectizeInput(session, "child", choices = child_choices)
    })
    
    # 可选：返回子类别选中值，供主程序调用
    return(reactive(input$child))
  })
}

主程序调用模块 #

library(shiny)

ui <- fluidPage(
  categorySelectUI("cat_select"),
  verbatimTextOutput("selected_child")
)

server <- function(input, output, session) {
  # 调用模块并接收返回的响应式值
  selected_child <- categorySelectServer("cat_select")
  output$selected_child <- renderPrint({
    selected_child()
  })
}

shinyApp(ui, server)

核心问题排查点 #

• 模块UI必须用NS(id)生成命名空间，所有输入ID必须通过ns()包裹，否则主程序无法识别模块内的控件
• 模块Server必须使用moduleServer()包裹，内部的session是模块专属的上下文，更新控件时必须传入这个session，不能用主程序的session
• 不要在模块内部直接使用全局的ID，必须依赖命名空间隔离

内容的提问来源于stack exchange，提问作者Abner Casallo Trauco