R Блестящие отображаемые значения SelectInput снизу вверх

Question

Можно ли отобразить значение SelectInput над входом, а не под ним, как оно есть по умолчанию?

Вот воспроизводимый пример:

shinyApp(
  ui = fluidPage(
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    selectInput("state", "Choose a state:",
                list(`East Coast` = list("NY", "NJ", "CT"),
                     `West Coast` = list("WA", "OR", "CA"),
                     `Midwest` = list("MN", "WI", "IA"))
    ),
    textOutput("result")
  ),
  server = function(input, output) {
    output$result <- renderText({
      paste("You chose", input$state)
    })
  }
)

Answer 1

Вот решение CSS:

CSS <- "
.selectize-dropdown {
  bottom: 100% !important; 
  top: auto !important;
}
"

shinyApp(
  ui = fluidPage(
    tags$head(
      tags$style(HTML(CSS))
    ),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    selectInput("state", "Choose a state:",
                list(`East Coast` = list("NY", "NJ", "CT"),
                     `West Coast` = list("WA", "OR", "CA"),
                     `Midwest` = list("MN", "WI", "IA"))
    ),
    textOutput("result")
  ),
  server = function(input, output) {
    output$result <- renderText({
      paste("You chose", input$state)
    })
  }
)