Golem-Shiny框架中Load Data模块显示错位至Info标签问题求助

核心问题是模块UI内部嵌套了shiny::tabPanel，与外层navbarPage的tabPanel产生渲染冲突。Shiny的tabPanel是标签页定义组件，当在一个tabPanel内部再嵌套tabPanel时，内部的tabPanel不会被识别为独立标签，反而会被直接渲染到父标签的内容区域，导致切换标签时内容混杂。

修复步骤 #

• 移除模块UI中的tabPanel：模块UI应直接返回需要展示的内容组件（如tagList、fluidRow等），无需额外包裹tabPanel。
• 保持外层navbarPage结构：每个tabPanel直接调用对应模块的UI，将模块内容作为该标签页的专属内容。
• 服务器端调用保持正常：Golem框架下直接调用模块的server函数即可，无需额外使用callModule（Golem已封装好模块的命名空间处理）。

示例代码 #

app_ui.R 正确写法

app_ui <- function(request) {
  tagList(
    golem_add_external_resources(),
    navbarPage(
      "My Application",
      tabPanel("Info", mod_info_app_ui("info_mod")),
      tabPanel("Load Data", mod_load_app_ui("load_mod"))
    )
  )
}

模块UI示例（mod_info_app_ui.R）

mod_info_app_ui <- function(id) {
  ns <- NS(id)
  tagList(
    h3("Info模块内容"),
    p("这里是Info标签页的专属内容，无需嵌套tabPanel")
  )
}

模块UI示例（mod_load_app_ui.R）

mod_load_app_ui <- function(id) {
  ns <- NS(id)
  tagList(
    h3("Load Data模块内容"),
    fileInput(ns("upload"), "选择数据文件"),
    verbatimTextOutput(ns("file_info"))
  )
}

app_server.R 写法

app_server <- function(input, output, session) {
  mod_info_app_server("info_mod")
  mod_load_app_server("load_mod")
}

额外说明 #

如果模块确实需要内部子标签页，应使用tabsetPanel包裹模块内的tabPanel，而非直接嵌套。例如模块UI可写成：

mod_info_app_ui <- function(id) {
  ns <- NS(id)
  tabsetPanel(
    tabPanel("子标签1", p("子标签内容1")),
    tabPanel("子标签2", p("子标签内容2"))
  )
}

这样模块内部的子标签会被正确渲染在父navbarPage的对应标签页下，不会出现混杂问题。

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