咨询{bslib}实现无需额外JS的全局可折叠侧边栏及函数缺失问题

首先明确版本差异：你提到的layout_sidebar()、sidebar()以及page_navbar()的sidebar参数，都是bslib 0.5.0及以上版本新增的核心功能，0.4.2版本确实不支持这些接口。

一、最简解决方案：升级bslib到最新版本 #

升级后可直接用原生功能实现和bs4Dash::dashboardSidebar()类似的全局可折叠侧边栏，无需额外JavaScript代码，同时保留bslib的Bootstrap自定义能力（比如bs_add_variables()的使用）。

基础折叠侧边栏示例 #

library(shiny)
library(bslib)

ui <- page_fillable(
  theme = bs_theme(version = 5, bg = "#f8f9fa") |> 
    bs_add_variables("--bs-sidebar-bg" = "#e9ecef"), # 自定义侧边栏背景色
  layout_sidebar(
    sidebar = sidebar(
      title = "全局侧边栏",
      collapsible = TRUE,
      open = TRUE, # 默认展开，设为FALSE则默认折叠
      sliderInput("val", "数值选择", 1, 100, 50),
      selectInput("cat", "分类选择", c("选项1", "选项2", "选项3"))
    ),
    # 主内容区
    card(
      card_header("主内容区域"),
      "这里是应用的核心内容展示区",
      verbatimTextOutput("selected_content")
    )
  )
)

server <- function(input, output) {
  output$selected_content <- renderPrint({
    list(选择数值 = input$val, 选择分类 = input$cat)
  })
}

shinyApp(ui, server)

结合导航栏的全局侧边栏示例 #

如果需要和顶部导航栏搭配使用全局侧边栏，可直接在page_navbar()中配置：

ui <- page_navbar(
  title = "带全局侧边栏的导航应用",
  sidebar = sidebar(
    collapsible = TRUE,
    open = "desktop", # 桌面端默认展开，移动端默认折叠
    "侧边栏配置内容"
  ),
  nav_panel("首页", "首页核心内容"),
  nav_panel("设置", "应用设置页面")
)

二、旧版本临时替代方案（不推荐） #

如果暂时无法升级，可通过shiny原生控件结合条件渲染实现类似效果（无需额外JS），但体验不如新版本原生功能流畅：

library(shiny)
library(bslib)

ui <- fluidPage(
  theme = bs_theme(version = 5),
  actionButton("toggle_sidebar", "切换侧边栏"),
  conditionalPanel(
    condition = "input.toggle_sidebar %% 2 == 1",
    sidebarPanel(
      width = 3,
      "侧边栏内容",
      sliderInput("val", "数值选择", 1, 100, 50)
    )
  ),
  mainPanel(
    verbatimTextOutput("val_output")
  )
)

server <- function(input, output) {
  output$val_output <- renderPrint(input$val)
}

shinyApp(ui, server)

关于功能推出时间 #

bslib 0.5.0版本已于2023年正式发布，包含所有你需要的侧边栏相关功能，现在直接升级即可使用。

内容的提问来源于stack exchange，提问作者Michaël