如何在Shiny中动态设置pickerInput菜单的样式

在Shiny中动态设置pickerInput菜单的样式可以通过使用自定义CSS来实现。pickerInput是shinyWidgets包中的一个函数，用于创建交互式的下拉菜单。

要动态设置pickerInput菜单的样式，可以按照以下步骤进行操作：

在Shiny应用程序的UI部分，使用pickerInput函数创建一个pickerInput菜单。例如：

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  pickerInput(
    inputId = "my_picker",
    label = "选择一个选项",
    choices = c("选项1", "选项2", "选项3"),
    options = list(
      style = "btn-primary"  # 设置初始样式
    )
  )
)

server <- function(input, output) {
  # 服务器逻辑
}

shinyApp(ui, server)

在Shiny应用程序的UI部分，使用tags$style函数来定义自定义CSS样式。例如：

ui <- fluidPage(
  tags$style(HTML("
    #my_picker .dropdown-toggle {
      background-color: #ff0000;  # 设置背景颜色
      color: #ffffff;  # 设置文字颜色
    }
  ")),
  
  pickerInput(
    inputId = "my_picker",
    label = "选择一个选项",
    choices = c("选项1", "选项2", "选项3"),
    options = list(
      style = "btn-primary"
    )
  )
)

在上面的示例中，我们使用了#my_picker .dropdown-toggle选择器来选择pickerInput菜单的下拉按钮，并设置了背景颜色和文字颜色。