Целевой выпадающий css из пакета блестящего виджета

Question

Я изо всех сил пытаюсь выяснить, как настроить таргетинг на 1 из двух выпадающих списков, в частности, с помощью стилевого кода CSS.Я могу стилизовать выпадающие списки в целом, но не индивидуально

Я попытался настроить таргетинг следующим образом, но ни один из них не работает.

#MyDropDown1 .sw-show.sw-dropdown-content {       

#sw-content-MyDropDown1 .sw-show.sw-dropdown-content {

.dropdown-content-MyDropDown1 {

#dropdown-content-MyDropDown1 {

#dropdown-menu-MyDropDown1 {

Как найти правильный синтаксис для таргетинга на 1-й выпадающий список?

вот приложение:

  library(shiny)
  library(shinyWidgets)

  ui <- fluidPage(

    tags$head(tags$style(HTML('
     .sw-show.sw-dropdown-content {
    display: block;
    left: 200px;
    top: 100px;
height: 300px;
width:
    } '))),

    dropdown(inputId = "MyDropDown1",
             tags$h3("List of Input")),
  dropdown(inputId = "MyDropDown2",
           tags$h3("List of Input"))
  )
  server <- function(input, output, session){
  }

  shinyApp(ui = ui, server = server)

Answer 1

Может быть, это путь. Но, к сожалению, из-за наценки я получаю 2 коробки ...
Но по крайней мере стиль CSS применяется только к первому выпадающему списку

library(shiny)
library(shinyWidgets)

ui <- fluidPage(

    tags$head(tags$style(HTML('
                              .test {
                              display: block;
                              background-color:red;
                              left: 200px;
                              top: 100px;
                              height: 300px;
                              width:
                              } '))),

    dropdown(inputId = "MyDropDown1",
             tags$h3("List of Input"), class = "test"),
    dropdown(inputId = "MyDropDown2",
             tags$h3("List of Input"))
    )
server <- function(input, output, session){
}

shinyApp(ui = ui, server = server)