为什么Stocksymbols（）在Shinyapp.io中不起作用？

Question

我正在尝试创建一个用于库存分析的工具，并希望在shinyapps.io上运行它。我想使用stocksymbols()来获取ui的selectinput中的所有符号。在本地可以使用，但在shinyapps.io中不可用。

当我在本地运行它时，它会整齐地加载符号，但是当我在shinyapps.io中查找webapp的日志时，就好像它冻结在试图下载符号的位置一样。它不会给出错误信息。最后的日志如下：

2018-12-28T21:47:52.221722+00:00 shinyapps[623611]: Fetching AMEX symbols...

我对闪亮和quantmod还是很陌生，所以也许我是个菜鸟错误，但是我在其他任何问答中都找不到我的问题的答案。

server <- function(input, output, session) {
  #Get all symbols
  symbolen=stockSymbols()
  #Update choices for selection sectors
  updateSelectInput(session = session,inputId = "sector",choices = rbind("Alle",unique(symbolen[6])))
  symbool<-reactive({
    if (input$sector=="Alle") {
      symbolen[1]
    } else 
    subset(symbolen[1], symbolen[6]==input$sector)
    })
  #Update choices for selection stock, subsetted by sector
  change<-observe({
    updateSelectInput(session = session,inputId = "waard",choices = symbool())
  })

}