css - 在 Shiny 中更改选择器输入的颜色

Question

我想修改我的选择器输入标题的字体颜色。我用的是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:'))))