在 Shiny 中更改 Picker Input 的颜色

Question

我想修改我的 Picker Input 标题的字体颜色。我用的是spacelab主题，所以按钮是深灰色的，而按钮的字体颜色是灰色的，所以不太好看。

当我点击按钮，或者选择一些数据时，字体变成白色，所以现在好多了。当我修改样式颜色时，按钮变成白色，即使我告诉他是红色的。示例：

library(shiny)
library(shinythemes)
library(shinyWidgets)
ui <- fluidPage(
  theme = shinytheme("spacelab"),
   pickerInput(
      inputId = "variable_list", choices = LETTERS, width = "60%", multiple = TRUE,
      options = list(size = 10, 'actions-box' = TRUE, 'live-search' = TRUE,
                     virtualScroll = TRUE, 
                     'none-selected-text'= strong("BUTTON TITLE:"), 
                     'selected-text-format'= "static")))

server <- function(input, output, session) {}

shinyApp(ui = ui, server = server)

Answer 1

我不确定是否有更直接的方法，但您可以使用 shiny 中的 HTML 使用 HTML 语法添加您想要的任何格式，例如：

'none-selected-text'=strong(HTML("<span style='color: white'>BUTTON TITLE:</span>"))

编辑

使用来自shiny 和center 标签的包装函数：

strong(tag('center', list(span(style='color: white', 'BUTTON TITLE:'))))