Shiny模块中基于全局输入的conditionalPanel不生效，求排查原因

这种情况我碰到过好几次，大概率是命名空间或者条件表达式的写法出了问题，咱们一步步排查：

常见问题点及解决方法 #

• 错误给全局输入加模块命名空间：模块里的conditionalPanel判断全局输入时，完全不需要加模块的NS前缀！全局输入属于顶层环境，直接用input.全局复选框ID就行，别画蛇添足套上模块的命名空间。
• 条件表达式用了R语法而非JS语法：conditionalPanel的condition参数是JavaScript表达式，不是R代码。比如判断复选框是否选中，得写input.checkbox_id === true（或者更简洁的input.checkbox_id），而不是R里的input$checkbox_id == TRUE。
• 模块没有正确注册到全局环境：要确保你在全局Server里用moduleServer（旧版用callModule）正确注册了模块，且全局UI里正确调用了模块UI。

可直接运行的示例代码 #

下面是一个能正常工作的完整示例，你可以对照自己的代码修改：

library(shiny)

# 模块UI
my_module_ui <- function(id) {
  ns <- NS(id)
  tagList(
    # 重点：condition直接用全局复选框ID，不用加ns()
    conditionalPanel(
      condition = "input.show_radio === true",
      radioButtons(ns("radio_choice"), "选择一项:",
                   choices = c("选项1", "选项2", "选项3"))
    )
  )
}

# 模块Server
my_module_server <- function(id) {
  moduleServer(id, function(input, output, session) {
    # 可选：监听模块内的单选按钮输入
    observe({
      cat("当前选中：", input$radio_choice, "\n")
    })
  })
}

# 全局UI
ui <- fluidPage(
  # 全局复选框
  checkboxInput("show_radio", "显示单选按钮", value = FALSE),
  # 调用模块UI
  my_module_ui("test_module")
)

# 全局Server
server <- function(input, output, session) {
  # 注册模块
  my_module_server("test_module")
}

shinyApp(ui, server)

额外排查技巧 #

如果还是不行，打开浏览器开发者工具（F12）看Console面板，有没有JS报错——比如输入ID拼写错误、条件表达式语法错误，这些细节很容易被忽略，报错信息能直接帮你定位问题。

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