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

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

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内部作为一个新的闪亮应用程序启动这个项目的-这正是最初在那里创建的），我有一个

global.R

文件，它加载

library（闪亮）

，读取一个csv文件作为data.frame，并创建变量

yyyyQQ=unique（使用（数据，粘贴）（年份，paste0（“Q”，季度），sep=“-”）

。在

yyyqq

中有37个值

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

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

更新：包括

yyyyQQ

的

dput

（是的，我知道变量名并不反映变量的实际结构）也-我在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")