在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

我不确定是否有更简单的方法，但您可以使用HTML中的shiny以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:'))))