如何改变选择下拉闪亮的高度？

Question

我想在闪亮的应用程序中更改选择下拉列表的高度.默认高度显示大约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中更改下拉高度？

Answer 1

在发布问题几分钟后得到解决方案.选择下拉列表的高度由max-height属性控制.以下css可以解决问题:

tags$style(type='text/css', ".selectize-dropdown-content {max-height: 400px; }"),