在Shiny R中更改selectInput条目的颜色
在Shiny R中更改selectInput条目的颜色
提问于 2020-06-16 12:57:09
我有以下代码：
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颜色的列表(不包括编号的颜色)。
有没有可能使每个条目都根据实际颜色着色，而不是全部为黑色？
回答 1
Stack Overflow用户
发布于 2020-06-16 16:23:23
也许你可以尝试一下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)
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/62401182
复制相关文章
相似问题
腾讯云开发者
