在后台加载隐藏的侧边栏(使用bs4Dash包)

install.packages("bs4Dash")

library(bs4Dash)

dashboard <- bs4DashPage(
  header = bs4DashHeader(),
  sidebar = bs4DashSidebar(),
  body = bs4DashBody()
)

sidebar <- bs4DashSidebar(
  sidebarMenu(
    menuItem("首页", tabName = "home", icon = icon("home")),
    menuItem("数据分析", tabName = "analysis", icon = icon("chart-bar"),
             menuSubItem("统计分析", tabName = "stats"),
             menuSubItem("可视化", tabName = "visualization")
    )
  )
)

body <- bs4DashBody(
  tabItems(
    tabItem(tabName = "home",
            fluidRow(
              box("欢迎来到仪表盘首页！", width = 12)
            )
    ),
    tabItem(tabName = "stats",
            fluidRow(
              box("这里是统计分析页面！", width = 12)
            )
    ),
    tabItem(tabName = "visualization",
            fluidRow(
              box("这里是可视化页面！", width = 12)
            )
    )
  )
)

renderBs4Dash(dashboard)