Шрифт 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

Это немного хакерское решение, но оно может сработать для вас или, по крайней мере, направить вас по правильному пути.

Вы можете использовать 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)