Цвет фона в dropdrop, блестящие виджеты

Question

Как изменить цвет выпадающего меню с shinyWidgets (не кнопка, а открытое меню).Полагаю, мне нужен CSS-код, но я не очень разбираюсь в CSS.

library(shiny)
library(shinyWidgets)
n <- 200

ui <- bootstrapPage(
  numericInput('n', 'Number of obs', n),
  dropdown(
    tags$h4("Advanced"),
    icon = icon("gear"),
    status = "primary", width = "600px",
    inputId="dropdown"
  ),
  tags$style(HTML('#dropdown {background-color: red;}')),
  plotOutput('plot')
)

server <- function(input, output) {
  output$plot <- renderPlot({
    hist(runif(input$n))
  })
}

shinyApp(ui = ui, server = server)

Answer 1

Вы можете использовать селектор CSS #sw-content-dropdown, .sw-dropdown-in, например:

library(shiny)
library(shinyWidgets)
n <- 200

ui <- bootstrapPage(

  dropdown(
    tags$h4("Advanced"),
    numericInput('n', 'Number of obs', n),
    icon = icon("gear"),
    status = "primary", width = "600px",
    inputId="dropdown"
  ),
  tags$style(HTML('#sw-content-dropdown, .sw-dropdown-in {background-color: red;}')),
  plotOutput('plot')
)

server <- function(input, output) {
  output$plot <- renderPlot({
    hist(runif(input$n))
  })
}

shinyApp(ui = ui, server = server)