如何调整bslib中value_box的标题文字大小？

可以通过自定义CSS样式修改value_box的标题字号，bslib的value_box标题默认带有.value-box-title类，直接针对这个类设置字体大小即可。

全局调整所有value_box标题 #

以下是直接修改全局所有value_box标题字号的代码示例：

library(bsicons)
library(bslib)

ui <- page_fixed(
  # 嵌入自定义CSS样式
  tags$style(HTML("
    .value-box-title {
      font-size: 1.5rem; /* 根据需求调整字号，比如2rem会更大 */
      font-weight: bold; /* 可选：加粗标题提升可读性 */
    }
  ")),
  value_box(
    title = "24-hour snowfall",
    value = textOutput("snow"),
    showcase = bs_icon("snow2"), 
    theme_color = "green"
  )
)

server <- function(input, output) {
  output$snow <- renderText({
    "2 inches"
  })
}

shinyApp(ui, server)

仅调整特定value_box标题 #

如果不需要全局修改，只想调整单个/部分value_box的标题，可以给目标组件添加自定义类名，再通过CSS精准定位：

library(bsicons)
library(bslib)

ui <- page_fixed(
  tags$style(HTML("
    /* 仅针对带有custom-title类的value_box生效 */
    .custom-title .value-box-title {
      font-size: 1.8rem;
    }
  ")),
  value_box(
    title = "24-hour snowfall",
    value = textOutput("snow"),
    showcase = bs_icon("snow2"), 
    theme_color = "green",
    class = "custom-title" # 添加自定义类名
  )
)

server <- function(input, output) {
  output$snow <- renderText({
    "2 inches"
  })
}

shinyApp(ui, server)

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