pickerInput字体或背景颜色

Question

我在我闪亮的仪表板中使用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")
  )
})`

Answer 1

这是一个有点老生常谈的解决方案，但它可能对你有效，或者至少让你走上正确的道路。

您可以使用pickerInput的choicesOpt参数来描述下拉菜单中各个选项的格式。指定颜色、背景或权重会将相关元素更改为您选择的任何元素。诀窍在于，参数只适用于第一个选项，因此您需要为尽可能多的选项复制样式参数。我已经用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)