В моей блестящей панели инструментов у меня есть несколько выпадающих меню типа selectizeInput .Они расположены внизу страницы, поэтому вместо того, чтобы открывать выпадающие меню вниз, я бы хотел открыть их вверх.
Я нашел решение для выпадающего меню shinyWidgets
, которое называется pickerInput .Решением здесь было добавить тег css
:
.dropdown-menu{bottom: 100%; top: auto;}
Однако этот тег не работает для selectizeInput
.Любая идея, которую css
я должен добавить в свой сценарий?
Редактировать (ответ по примеру Мартенсама)
library(shiny)
ui <- fluidPage(
# selectize style
tags$head(tags$style(type = "text/css", paste0(".selectize-dropdown {
bottom: 100% !important;
top:auto!important;
}}"))),
div(style='height:200px'),
selectizeInput('id', 'test', 1:10, selected = NULL, multiple = FALSE,
options = NULL)
)
server <- function(input, output, session) {
}
shinyApp(ui, server)