Изменить цвет ввода выбора в Shiny - PullRequest
Новая
       26

Изменить цвет ввода выбора в Shiny

0 голосов
/ 06 марта 2019

Я бы хотел изменить цвет шрифта заголовка моего ввода выбора. Я использую тему 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)

1 Ответ

0 голосов
/ 06 марта 2019

Я не уверен, есть ли более простой способ, но вы можете использовать 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:'))))
...