r - picker输入字体或背景颜色

Question

我在 Shiny 的仪表板中使用了 pickerInput，这很好，除了一个问题:背景颜色和字体颜色太相似，使得过滤器选项难以阅读。

有没有办法改变背景或字体颜色？如果可能的话，我想继续使用 pickerInput，但如果有带有 selectInput 或其他任何方法的方法就好了。

在屏幕截图中产生结果的我的一个 pickerinputs 示例:

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，但您可能希望以编程方式定义该值无论您的商品 list 数据来自何处。

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)