Shiny中嵌套navbarMenu子项失效，求替代子菜单组件

你完全说对了——原生Shiny的navbarMenu确实只设计成navbarPage的直接子元素，嵌套之后底层的子菜单根本没法正常渲染，这确实挺头疼的，尤其是当菜单项多到需要分组的时候，视觉效率会大打折扣。下面给你几个靠谱的替代方案，都能实现多层子菜单的功能：

1. 用bslib扩展原生导航栏（最推荐） #

bslib是Shiny官方推出的样式扩展包，它基于Bootstrap 5重构了导航组件，完美支持嵌套的navbarMenu，而且只需要对你的原有代码做极小改动：

library(shiny)
library(bslib)

ui <- navbarPage(
  "My Application",
  tabPanel("Component 1"),
  tabPanel("Component 2"),
  navbarMenu(
    "More",
    tabPanel("Sub-Component A"),
    tabPanel("Sub-Component B"),
    # 这里可以直接嵌套navbarMenu了
    navbarMenu(
      "Yet More",
      tabPanel("Subpart 1"),
      tabPanel("Subpart 2")
    )
  ),
  # 关键：指定bslib的Bootstrap 5主题
  theme = bs_theme(version = 5)
)

server <- function(input, output) {}

shinyApp(ui, server)

这个方案几乎不需要调整你的原有布局逻辑，直接就能让嵌套菜单正常显示，同时还能自定义主题样式，一举两得。

2. 改用shinydashboard的侧边栏多层菜单 #

如果你的应用适合采用仪表盘布局，shinydashboard的sidebarMenu天生支持多层嵌套，视觉层级非常清晰，特别适合菜单项较多的场景：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "My Application"),
  dashboardSidebar(
    sidebarMenu(
      menuItem("Component 1", tabName = "comp1"),
      menuItem("Component 2", tabName = "comp2"),
      menuItem(
        "More",
        # 一级子菜单
        menuSubItem("Sub-Component A", tabName = "subA"),
        menuSubItem("Sub-Component B", tabName = "subB"),
        # 嵌套二级子菜单
        menuItem(
          "Yet More",
          menuSubItem("Subpart 1", tabName = "sub1"),
          menuSubItem("Subpart 2", tabName = "sub2")
        )
      )
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = "comp1", h2("Component 1 Content")),
      tabItem(tabName = "comp2", h2("Component 2 Content")),
      tabItem(tabName = "subA", h2("Sub-Component A Content")),
      tabItem(tabName = "subB", h2("Sub-Component B Content")),
      tabItem(tabName = "sub1", h2("Subpart 1 Content")),
      tabItem(tabName = "sub2", h2("Subpart 2 Content"))
    )
  )
)

server <- function(input, output) {}

shinyApp(ui, server)

3. 用shinyWidgets自定义下拉菜单（灵活适配） #

如果不想改变原有导航栏布局，也可以用shinyWidgets的dropdownButton来模拟多层子菜单，不过需要手动处理菜单切换的逻辑：

library(shiny)
library(shinyWidgets)

ui <- navbarPage(
  "My Application",
  tabPanel("Component 1"),
  tabPanel("Component 2"),
  tabPanel(
    "More",
    # 自定义二级下拉菜单
    dropdownButton(
      label = "Yet More",
      status = "default",
      circle = FALSE,
      actionButton("goSub1", "Subpart 1"),
      actionButton("goSub2", "Subpart 2")
    ),
    # 用tabsetPanel管理所有子内容
    tabsetPanel(
      id = "moreTabs",
      tabPanel("Sub-Component A"),
      tabPanel("Sub-Component B"),
      tabPanel("Subpart 1"),
      tabPanel("Subpart 2")
    )
  )
)

server <- function(input, output, session) {
  # 监听按钮点击切换标签页
  observeEvent(input$goSub1, {
    updateTabsetPanel(session, "moreTabs", selected = "Subpart 1")
  })
  observeEvent(input$goSub2, {
    updateTabsetPanel(session, "moreTabs", selected = "Subpart 2")
  })
}

shinyApp(ui, server)

总的来说，bslib的方案成本最低、最贴合你的原有需求，如果追求更专业的仪表盘体验，shinydashboard会是更好的选择。

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