Как изменить высоту выпадающего списка в блестящем?

Я хочу изменить высоту выпадающего списка в блестящем приложении. Высота по умолчанию отображает около 8 вариантов, хотелось бы увидеть больше. Можно увеличить количество опций, уменьшив высоту выпадающего списка, но это не оптимальное решение для меня. Я много искал, как это сделать, изучал код selectize.js, и моя текущая гипотеза состоит в том, что это либо тривиально, либо невозможно по замыслу.

Что я узнал, так это то, что отображаемый выпадающий список select - это div класса .selectize-dropdown-content, но изменение его атрибутов высоты и ширины ничего не меняет. Можно изменить цвет фона, хотя. Вот мой единственный блестящий код приложения:

server <- function(input, output) {
    output$distPlot <- renderPlot({
        plot(0.5,0.5,xlim=c(0,1),ylim=c(0,1))
        text(0.5,0.5,input$Letter)
  })
}

ui <- shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
        selectizeInput("Letter", "", setNames(letters,letters),selected="a",multiple=FALSE),       
        tags$style(type='text/css',
                   ".selectize-dropdown-content {
height: 600 px;
width: 700 px;
background-color: #b0c4de;
}")
    ),
    mainPanel(plotOutput("distPlot"))
  )
))

shinyApp(ui = ui, server = server)

Итак, мой вопрос: изменяю ли я css правильного элемента, или изменение высоты выпадающего меню невозможно в selectize.js?

Ответ 1