如何修改shinyWidgets中pickerInput的标签颜色？

要将pickerInput的标签（比如"Product"）改为白色，同时让样式自动应用到后续添加的输入组件，最直接的方式是添加全局CSS样式，通过匹配输入组件标签的通用类来实现。

具体修改步骤： #

在dashboardBody()中插入tags$style()，编写CSS规则统一设置所有输入标签的颜色：

library(shiny)
library(shinyWidgets)
library(bs4Dash)

ui <- dashboardPage(
  
  dashboardHeader(title = "TEST",
                  fixed= TRUE, 
                  disable = TRUE),
  
  dashboardSidebar(                        
    sidebarMenu(
      menuItem(
        "A1",
        tabName = "a1"
      ),
      
      menuItem(
        text = "Analyse",
        tabName = "analyse",
        
        pickerInput(
          inputId = "product",
          label = "Product",
          choices = c("hjk", "cgh", "ölk", "cfh"),
          options = list(title = "choose here")
        ),
        
        # 后续添加的输入组件也会自动应用样式
        pickerInput(
          inputId = "category",
          label = "Category",
          choices = c("A", "B", "C")
        ),
        
        startExpanded = TRUE
      )
    )
  ),
  
  dashboardBody(
    # 添加全局CSS样式
    tags$style(HTML("
      /* 匹配侧边栏内所有输入组件的标签 */
      .sidebar .control-label {
        color: white !important;
      }
      /* 针对pickerInput的专属标签类（可选，更精准） */
      .sidebar .picker-label {
        color: white !important;
      }
    "))
  )
  
)

server <- function(input, output) {}

shinyApp(ui = ui, server = server)

说明： #

• .control-label是Bootstrap框架下所有输入组件标签的通用类，匹配这个类可以让所有输入（包括pickerInput、selectInput等）的标签都变成白色。
• .picker-label是shinyWidgets为pickerInput标签单独设置的类，如果你只想针对pickerInput生效，可以单独用这个选择器。
• 加上.sidebar前缀可以限制样式只在侧边栏内生效，避免影响页面其他区域的标签。
• !important用于确保自定义样式覆盖默认样式，避免被框架自带样式优先级覆盖。

这样后续在侧边栏添加的任何输入组件，其标签都会自动继承白色样式，无需逐个设置。

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