我在闪亮的仪表板中使用 pickerInput，这很好，除了一个问题：背景颜色和字体颜色太相似，使得过滤器选择难以阅读。
有什么办法可以改变背景或字体颜色吗？如果可能的话，我想继续使用 pickerInput，但如果有一个带有 selectInput 或其他任何方法的方法就可以了。
我的一个选择器输入的示例，它产生屏幕截图中的结果：
output$typeOutput80 <- renderUI({
Commodity.Name <- as.vector( unique(DF2()$Commodity.Name) )
pickerInput("typeOutput80", "Commodity:",
choices=Commodity.Name, Commodity.Name [1:10000], multiple=TRUE,
options = list(`actions-box` = TRUE, `live-search` = TRUE,
`selected-text-format`= "static", title = "Commodity List")
)
})`
这是一个有点hacky的解决方案，但它可能对你有用，或者至少让你走上正确的道路。
您可以使用choicesOpt的论证pickerInput描述下拉菜单中各个选项的格式。指定颜色、背景或粗细会将相关元素更改为您选择的任何内容。诀窍在于这些参数仅适用于第一个选择，因此您需要为尽可能多的选择复制样式参数。我已经这样做了rep()我刚刚在那里粘贴了一个值（10）来匹配choices，但您可能希望根据商品列表数据的来源以编程方式定义该值。
library(shiny)
library(shinyWidgets)
ui <- fluidPage(
pickerInput("id", "Formatting changes", multiple=T, choices = sample(LETTERS, size = 10),
options = list(`actions-box` = TRUE, `live-search` = TRUE,
`selected-text-format`= "static", title = "Commodity List"),
choicesOpt = list(
style = rep(("color: black; background: lightgrey; font-weight: bold;"),10)))
)
server <- function(input, output){}
shinyApp(ui, server)
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
