从 flexdashboard 中的 shinyWidgets 更改单个元素的 CSS

【问题标题】：change CSS of single element from shinyWidgets in flexdashboard从 flexdashboard 中的 shinyWidgets 更改单个元素的 CSS
【发布时间】：2020-10-14 21:15:52
【问题描述】：

与问题here 和here 相关，我想从ShinyWidgets 更改pickerInput 菜单的CSS。我正在使用 flexdashboard，我希望样式与 selectInput 菜单中的样式完全匹配。我意识到我可以通过将 YAML 中的整体主题设置为引导程序来做到这一点，但我不想使用全局解决方案。

---
title: "Testing picker styles"
output: 
  flexdashboard::flex_dashboard
runtime: shiny
---
  
```{r setup, include=F}
library(shiny)
library(flexdashboard)
library(shinyWidgets)
```

Column 
-----------------------------------------------------------------------
  
```{r}
selectInput(inputId = "id1", label = "Select input", choices = attr(UScitiesD, "Labels"))
pickerInput(inputId = "id2", label = "Picker input", choices = attr(UScitiesD, "Labels"))
```

【问题讨论】：

标签： css r shiny flexdashboard shinywidgets

【解决方案1】：

pickerInput 的样式类似于 Bootstrap 按钮，并且 {flexdashboard} 使用 Bootswatch 的 Cosmo 主题 (https://bootswatch.com/3/cosmo/)，这就是它显示为黑色的原因。

你可以改变按钮的类别：

options = pickerOptions(style = "btn-link")

（在pickerInput 参数中）

或者您可以像这样覆盖基本样式：

options = list("style-base" = "form-control", style = "")

【讨论】：

感谢@Victorp，无论如何要使高度相同并圆角？我在寻找字面上的“精确”。