Я использую shinythemes для применения стиля начальной загрузки к моему приложению и shinyWidgets для многих элементов пользовательского интерфейса. Я предпочитаю функциональность и простоту pickerInput вместо selectizeInput, но мне не нравится оформление этого одного элемента в теме, которую я использую. Можно ли использовать блестящую таблицу стилей по умолчанию только для этого одного элемента (т. Е. Без указания всех желаемых элементов CSS, как в в этом посте )? Я подозреваю, что есть какое-то имя элемента стиля или класс, который я могу применить, используя параметры стиля, но я не могу найти правильный ...
library(shiny)
library(shinythemes)
library(shinyWidgets)
ui <- fluidPage(
theme=shinytheme("lumen"), # <- comment out this line to see the default styling.
selectInput("sel1", "Select Input:", choices=c("A", "B", "C")),
selectizeInput("sel2", "Selectize Input:", choices=c("D", "E", "F"),
multiple=T,
options = list(placeholder = 'Please select an option below',
onInitialize = I('function() { this.setValue(""); }'))),
pickerInput("sel3", "Picker Input:", choices=c("G", "H", "I"),
options=list(title="Select below"), multiple=T,
choicesOpt = list(subtext=c("g","h","i")))
)
server <- function(input, output, session) {}
shinyApp(ui, server)
Для ясности, я бы хотел, чтобы pickerInput выглядел как selectizeInput в представленном примере. Если вы закомментируете аргумент темы, вы сможете увидеть, как выглядит стиль по умолчанию, поэтому я думаю, что ключ к классу стилей, который pickerInput использует из начальной загрузки люмена.
Любые идеи приветствуются, как всегда.