如何防止Shiny Server下拉菜单被切断

Question

我有一个简单的Shiny App的开头：

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 App - 它就是最初在那里创建的那个）并且我有一个global.R文件加载library(shiny)，将csv文件作为data.frame读取并创建变量yyyyQQ = unique(with(data,paste(Year,paste0("Q",Quarter),sep="-")))。 yyyyQQ中有37个值。

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

如何阻止此行为并允许整个下拉菜单生成？

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

yyyyQQ