如何防止闪亮服务器下拉菜单被切断

Question

我开始了一个简单的闪亮应用程序：

shinyUI(
  navbarPage("Round Robin",
    tabPanel("Setup",
      fluidPage(
        column(4,
           selectInput("quarter",label="Select Quarter:",choices = yyyyQQ[order(yyyyQQ,decreasing=T)],selected=1)
          ,textInput("pwd", label = "Enter Password:",value="")
          )
        )
      )         
    )
  )

目前，该server.R文件基本上是空的（我从 R Studio 内部启动了该项目，作为一个新的 Shiny 应用程序 - 这只是最初在那里创建的），并且我有一个global.R文件，可以加载library(shiny)、读取 csv 文件作为 data.frame 并创建变量yyyyQQ = unique(with(data,paste(Year,paste0("Q",Quarter),sep="-"))). 中有 37 个值yyyyQQ。

当我启动应用程序时，下拉菜单仅显示 2.5 行，并为整个页面的一小行创建一个滚动条。

如何防止这种行为并允许生成整个下拉菜单？

更新：包括dput（yyyyQQ是的，我知道变量名称并不反映变量的实际结构）另外 - 我已经在 Chrome 和 IE 中测试了这一点，在两个地方都有相同的行为。

c("09Q1", "09Q2", "09Q4", "09Q3", "10Q1", "10Q2", "10Q3", "10Q4", 
"11Q1", "11Q2", "11Q3", "12Q1", "11Q4", "12Q3", "12Q2", "12Q4", 
"13Q1", "13Q2", "13Q3", "13Q4", "14Q2", "14Q3", "14Q1", "14Q4", 
"07Q4", "06Q1", "06Q2", "06Q4", "06Q3", "07Q1", "07Q2", "07Q3", 
"08Q1", "05Q1", "05Q3", "05Q4", "05Q2")