我希望我的Shiny选择输入框:
- 没有标签
- 有自定义的背景颜色:
#2f2d57
- 有占位符
- 允许用户输入和选择
然而,我无法使应用程序同时遵循以上4个规则。我的代码如下:
数据:
table <- data.frame(col1 = c(3, 4, 8, 5, 2, 6, 7))
尝试1
问题:用户无法在selectInput中输入和选择。
ui <- fluidPage(
uiOutput("container")
)
server <- function(input, output) {
output$container <- renderUI({
fluidRow(
tags$style("#three_code_zip_selector {color: #ffffff; background-color: #2f2d57;}"),
selectInput('three_code_zip_selector', NULL, choices = c("Please Select Desired Number" = "", table$col1), selectize = F)
)
})
}
shinyApp(ui = ui, server = server)
尝试二
问题:删除 selectize = F
后,用户可以输入以进行选择,但背景颜色未更改。
ui <- fluidPage(
uiOutput("container")
)
server <- function(input, output) {
output$container <- renderUI({
fluidRow(
tags$style("#three_code_zip_selector {color: #ffffff; background-color: #2f2d57;}"),
selectInput('three_code_zip_selector', NULL, choices = c("Please Select Desired Number" = "", table$col1))
)
})
}
shinyApp(ui = ui, server = server)
我也尝试使用 selectizeInput
,但似乎仍然存在与上述相同的问题。
尝试3
问题:用户可以输入文字,但背景颜色没有改变,并且在 selectizeInput 的顶部有一个我不想要的标签。
ui <- fluidPage(
uiOutput("container")
)
server <- function(input, output) {
output$container <- renderUI({
fluidRow(
tags$style(".selectize-dropdown-content .active {background: #2f2d57; !important;color: #ffffff; !important;}"),
selectizeInput('three_code_zip_selector', "s", choices = c("Please Select Desired Number" = "", table$col1))
)
})
}
shinyApp(ui = ui, server = server)
有谁有关于如何满足这四个规则的想法吗?先提前感谢您!