R Shiny中添加主题后bsCollapse面板失效的问题求助

问题出在版本兼容性：shinyBS包的组件基于Bootstrap 3开发，而bslib::bs_theme()默认生成Bootstrap 5主题，两者的JS/CSS逻辑冲突，导致bsCollapsePanel无法正常展开/折叠。

方案1：改用bslib原生折叠组件（推荐） #

bslib自带兼容Bootstrap 5的折叠组件，功能与bsCollapse一致，无需依赖shinyBS，代码修改如下：

library(shiny)
library(bslib)

shinyApp(
  ui = fluidPage(
    theme = bs_theme(
      bg = "white",
      fg = "black",
      primary = "#00a499",
      base_font = font_google("Prompt"),
      code_font = font_google("JetBrains Mono")
    ),
    mainPanel(
      # 替换bsCollapse为bslib原生accordion
      accordion(
        id = "collapseExample",
        open = "Panel 2",
        # 替换bsCollapsePanel为accordion_panel
        accordion_panel(
          "Panel 1", 
          "This is a panel with just text ",
          "and has the default style. You can change the style in ",
          "the sidebar."
        ),
        accordion_panel(
          "Panel 2", 
          "This panel has a generic plot. ",
          "and a 'success' style.", 
          plotOutput("genericPlot"),
          style = "success"
        )
      )
    )
  ),
  server = function(input, output, session) {
    output$genericPlot <- renderPlot(plot(rnorm(100)))
  }
)

方案2：强制bslib使用Bootstrap 3（兼容shinyBS） #

如果必须保留shinyBS的bsCollapse，可在bs_theme中指定Bootstrap 3版本，解决兼容性冲突：

library(shiny)
library(shinyBS)
library(bslib)

shinyApp(
  ui = fluidPage(
    theme = bs_theme(
      version = "3",  # 关键：指定Bootstrap 3版本
      bg = "white",
      fg = "black",
      primary = "#00a499",
      base_font = font_google("Prompt"),
      code_font = font_google("JetBrains Mono")
    ),
    mainPanel(
      bsCollapse(id = "collapseExample", open = "Panel 2",
                 bsCollapsePanel("Panel 1", "This is a panel with just text ",
                                 "and has the default style. You can change the style in ",
                                 "the sidebar."),
                 bsCollapsePanel("Panel 2", "This panel has a generic plot. ",
                                 "and a 'success' style.", plotOutput("genericPlot"), style = "success")
      )
    )
  ),
  server = function(input, output, session) {
    output$genericPlot <- renderPlot(plot(rnorm(100)))
  }
)

注意事项 #

• 方案1是长期最优解，bslib原生组件会持续跟进Bootstrap版本更新，避免后续兼容性问题。
• 方案2仅为临时兼容方案，Bootstrap 3已停止维护，后续可能出现其他潜在问题。

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