Shiny模块中如何通过复选框控制Tab 2的显示与隐藏？

我需要实现仅勾选checkboxInput2Id时才显示Tab 2的功能，该逻辑在非模块化场景下移除NS相关代码后可正常运行，但在使用命名空间的模块化场景中失效。以下是我编写的模块代码：

moduleUI <- function(id) {
  ns <- NS(id)
  
  sidebarLayout(
    sidebarPanel = sidebarPanel(
      checkboxInput(ns("checkboxInput1Id"), "Check to show first tab"),
      conditionalPanel(
        style = "display: none;",
        "input.checkboxInput1Id == true",
        checkboxInput(ns("checkboxInput2Id"), "Check to show second set of tabs"),
        ns = ns
      )
    ),
    
    mainPanel = mainPanel(
      conditionalPanel(
        style = "display: none;",
        "input.checkboxInput1Id == true", 
        tabsetPanel(
          id = ns("tabs"),
          tabPanel("Tab 1", plotOutput(ns("plot1")), value = ns("Tab 1")),
          tabPanel("Tab 2", plotOutput(ns("plot2")), value = ns("Tab 2"))
        ),
        ns = ns
      )
    )
  )
}

moduleServerImpl <- function(id) {
  moduleServer(id, function(input, output, session) {
    ns <- session$ns
    
    x <- iris$Sepal.Length
    y <- iris$Sepal.Width
    
    output$plot1 <- renderPlot(hist(islands))
    output$plot2 <- renderPlot(plot(x ~ y))
    
    observe({
      if (input$checkboxInput2Id) {
        showTab(inputId = ns("tabs"), target = ns("Tab 2"), session = session)
      } else {
        hideTab(inputId = ns("tabs"), target = ns("Tab 2"), session = session)
      }
    })
  }) 
}

ui <- fluidPage(
  moduleUI(id = "moduleNamespace")
)

server <- function(input, output, session) {
  moduleServerImpl(id = "moduleNamespace")
}

runApp(shinyApp(ui = ui, server = server))

解决方案 #

问题出在两处命名空间的错误使用：

1. 模块server中调用showTab/hideTab时，无需用ns()包装inputId——模块的session对象已经自带命名空间上下文，直接使用tabs就能定位到模块内的tabsetPanel。
2. tabPanel的value不需要添加命名空间，在模块内部的tabsetPanel中，value是局部标识，直接用普通字符串即可。

修正后的完整代码：

moduleUI <- function(id) {
  ns <- NS(id)
  
  sidebarLayout(
    sidebarPanel = sidebarPanel(
      checkboxInput(ns("checkboxInput1Id"), "Check to show first tab"),
      conditionalPanel(
        style = "display: none;",
        "input.checkboxInput1Id == true",
        checkboxInput(ns("checkboxInput2Id"), "Check to show second set of tabs"),
        ns = ns
      )
    ),
    
    mainPanel = mainPanel(
      conditionalPanel(
        style = "display: none;",
        "input.checkboxInput1Id == true", 
        tabsetPanel(
          id = ns("tabs"),
          tabPanel("Tab 1", plotOutput(ns("plot1")), value = "Tab 1"),
          tabPanel("Tab 2", plotOutput(ns("plot2")), value = "Tab 2")
        ),
        ns = ns
      )
    )
  )
}

moduleServerImpl <- function(id) {
  moduleServer(id, function(input, output, session) {
    x <- iris$Sepal.Length
    y <- iris$Sepal.Width
    
    output$plot1 <- renderPlot(hist(islands))
    output$plot2 <- renderPlot(plot(x ~ y))
    
    observe({
      if (input$checkboxInput2Id) {
        showTab(inputId = "tabs", target = "Tab 2", session = session)
      } else {
        hideTab(inputId = "tabs", target = "Tab 2", session = session)
      }
    })
  }) 
}

ui <- fluidPage(
  moduleUI(id = "moduleNamespace")
)

server <- function(input, output, session) {
  moduleServerImpl(id = "moduleNamespace")
}

runApp(shinyApp(ui = ui, server = server))

关键修改点 #

• 模块UI中，tabPanel的value改为普通字符串（移除ns()包装）
• 模块server的observe逻辑中，showTab/hideTab的inputId直接使用tabs，target直接使用"Tab 2"

内容的提问来源于stack exchange，提问作者J. Grünenwald