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:'))))

在“闪亮”中更改选择器输入的颜色

1 个答案: