使用Shinythemes软件包更改单个Shinywidgets元素的CSS样式

Question

我正在使用shinythemes来将引导样式应用于我的应用，并使用shinyWidgets来用于某些UI元素。我更喜欢pickerInput的功能和易用性，而不是selectizeInput，但是我不喜欢我正在使用的主题中该元素的样式。是否可以仅对一个元素使用默认的闪亮样式表（即，不必像this post中那样指定所有所需的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。如果您注释掉主题参数，则可以看到默认样式，所以我认为关键是关于lumen bootswatch中pickerInput使用的样式类。

任何想法一如既往地受到赞赏。