Изменение цвета записей selectInput в Shiny R

Question

У меня есть следующий код:

library(shiny)

# Remove all numbered colour names
col.list <- colours()[!grepl("\\d", colours())]

ui <- fluidPage(
  selectInput(inputId = "col",
              label = "Colour",
              choices = col.list, selected = "maroon"),
)

server <- function(input, output) {

}

shinyApp(ui = ui, server = server)

Он создает следующий элемент управления ui:

Это список все цвета R (кроме пронумерованных).

Можно ли сделать так, чтобы каждая запись была окрашена в соответствии с фактическим цветом, вместо того, чтобы все были черными?

Answer 1

Может быть, вы можете попробовать пакет shinyWidgets, в котором его стилизовали бы внутри choicesOpt. измените аргумент background на color, если вы хотите изменить цвет записей, а не фон

library(shiny)
library(shinyWidgets)
col.list <- colours()[!grepl("\\d", colours())]
colors <- paste0("background:",col.list,";")

ui <- fluidPage(
    pickerInput("col", "Colour", multiple=T, choices = col.list, 
                choicesOpt = list(
                    style = colors))
)

server <- function(input, output){}

shinyApp(ui, server)