जब नीचे दिखाए गए अनुसार selectInput() मान का चयन नहीं किया गया है, तो मैं उपयोगकर्ताओं को दृष्टि से सचेत करना चाहता हूं। इस फ़ोरम में इस के अलावा कोई समाधान नहीं खोजा जा सका लेकिन पूछना अलग है।

enter image description here

0
RanonKahn 22 नवम्बर 2021, 02:31

1 उत्तर

सबसे बढ़िया उत्तर

कुछ नियंत्रण नीचे दिए गए सीएसएस में हैं

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)

output

1
YBS 22 नवम्बर 2021, 04:55