未选择值时如何更改 R Shiny 'selectInput' 值选择显示空间背景颜色？

Posted 2023-03-24

【中文标题】未选择值时如何更改 R Shiny \'selectInput\' 值选择显示空间背景颜色？

【英文标题】：How to change R Shiny 'selectInput' value selection display space background color when no value selected?未选择值时如何更改 R Shiny 'selectInput' 值选择显示空间背景颜色？

【发布时间】：2021-12-31 16:21:35

【问题描述】：

我希望在未选择selectInput() 值时以视觉方式提醒用户，如下所示。除了this，在此论坛中找不到解决方案，但问题不同。

【参考方案1】：

一些控件在下面的css中

library(shiny)

css <- "
.selectize-dropdown-content .option 
  color: blue;

.selectize-input .item 
  color: red !important;
  background-color: yellow !important;

::-webkit-input-placeholder  /* Chrome/Opera/Safari */
  background-color:red !important;
  color: white;

::-moz-placeholder  /* Firefox 19+ */
  color: pink;

:-ms-input-placeholder  /* IE 10+ */
  color: pink;

:-moz-placeholder  /* Firefox 18- */
  color: pink;
"

ui <- fluidPage(
  tags$head(
    tags$style(html(css))
  ),
  br(),
  selectInput("my_select", "Choose: ", c("Please choose a site or say anything"='',"Site 1", "Site 2","Site 3", "Site 4"), 
              selectize = T),
  br()
)
server <- function(input, output) 
shinyApp(ui = ui, server = server)