使用bslib无法为Shiny应用设置主题及折叠面板样式，求解原因

你尝试用bslib为Shiny应用配置主题，并给折叠面板（accordion）标题添加自定义样式，但未看到样式变化，主要有以下几个原因及对应解决办法：

原因1：CSS选择器错误 #

bslib的折叠面板标题实际使用的是Bootstrap 5的标准类名.accordion-button，而非你写的.accordion-title——这个类名并不存在于组件结构中，所以样式无法生效。

原因2：Theme参数位置错误 #

page_sidebar函数并不接受theme参数，你把theme传入这里，导致主题（包括自定义样式）没有被正确应用到整个页面。需要将theme传递给上层的page_fillable或page_fluid。

原因3：样式优先级不足 #

Bootstrap自带的样式有较高优先级，即使选择器正确，自定义样式也可能被默认样式覆盖，可以通过增加!important或使用更精确的选择器来解决。

修正后的代码 #

library(shiny)
library(bslib)

theme = bs_theme(bg = "black", fg = "white") |>
  bs_add_rules("
    /* 展开状态的折叠面板标题样式 */
    .accordion-button {
      color: red !important;
      font-family: 'Lucida Console', 'Courier New', monospace !important;
      background-color: transparent !important; /* 可选：去掉默认背景色，适配黑色主题 */
    }
    /* 折叠状态的标题样式（可选） */
    .accordion-button.collapsed {
      color: pink !important;
    }
  ")

ui <- 
page_fillable(
  theme = theme, # 将theme放在page_fillable中全局生效
  page_fluid(
    page_sidebar(
      sidebar = bslib::accordion(accordion_panel("Options"))
    )
  )
)

shinyApp(ui, function(input, output, session){})

关键修改说明 #

• 替换CSS选择器为.accordion-button，匹配折叠面板的标题按钮元素
• 将theme参数移至page_fillable，确保主题全局应用
• 添加!important强制覆盖默认样式（若不想用!important，可使用更精确的选择器如.bslib-sidebar .accordion-button提升优先级）

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