Shiny应用使用navbarPage后暗色模式开关无法生效问题求助

架构老林

2026-9-25

Shiny应用navbarPage与暗色模式切换冲突解决方案

问题根因

第一条结构警告：navbarPage 组件要求子元素必须是 shiny::tabPanel 或 bslib::nav 类组件，你直接把 sidebarLayout 作为 navbarPage 的直接子元素，不符合组件嵌套规则，触发结构校验警告。
第二条版本报错：你在server中调用bs_theme_update(theme, ...)时，theme变量仅在ui的参数中临时声明，没有在全局作用域定义，server读取不到有效的主题对象，导致切换时Bootstrap版本识别失败。

修正后的完整可运行代码

library(shiny)
library(DT)
library(shinyWidgets)
library(bslib)

# 全局定义初始主题，明确指定Bootstrap版本，ui和server共用该实例
app_theme <- bs_theme(version = 5)

ui <- fluidPage(
  theme = app_theme,
  navbarPage("TITLE",
    # navbarPage内必须嵌套tabPanel组件，所有页面内容放在tabPanel内部
    tabPanel("主页面",
             sidebarLayout(
               sidebarPanel(
                 numericInput("num", label = h3("Numeric input"), value = 1),
                 materialSwitch(inputId = "mode", label = icon("moon"), right=TRUE,status = "success")
               ),
               mainPanel(verbatimTextOutput("value"))
             )
    )
  )
)


server <- function(input, output,session) {
  observe({
    if(input$mode==TRUE) {
      session$setCurrentTheme(bs_theme_update(app_theme, bootswatch = "superhero"))
    } else {
      session$setCurrentTheme(bs_theme_update(app_theme, bootswatch = "default"))
    }
  })
  
  output$value <- renderPrint({ input$num })
}
shinyApp(ui, server)