如何修改R Shiny中selectInput未选中值时的选择展示区背景颜色

你可以通过自定义CSS样式结合状态判断，实现未选中时的高亮提醒，以下是可直接运行的完整实现：

提前安装依赖包shiny和shinyjs后即可运行示例：

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  # 自定义未选中状态的错误样式，可自行调整配色
  tags$style(HTML("
    .select-input-error .selectize-input {
      border: 2px solid #dc3545 !important;
      background-color: #f8d7da !important;
      color: #721c24 !important;
    }
  ")),
  selectInput(
    inputId = "demo_select",
    label = "请选择选项：",
    choices = c("请选择" = "", "选项A", "选项B", "选项C"),
    selected = ""
  )
)

server <- function(input, output, session) {
  # 监听selectInput的值，动态切换错误样式
  observe({
    select_val <- input$demo_select
    toggleClass(
      selector = "#demo_select ~ .selectize-control",
      class = "select-input-error",
      condition = select_val == ""
    )
  })
}

shinyApp(ui, server)

• 你可以自行修改CSS属性调整边框样式、背景色、透明度等参数，匹配你需要的视觉效果
• 如果不想引入shinyjs依赖，也可以直接在UI中插入原生JavaScript代码监听selectInput的change事件，实现相同的样式切换效果

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