Почему Stocksymbols () не работает в shinyapp.io? - PullRequest
Новая
       11

Почему Stocksymbols () не работает в shinyapp.io?

0 голосов
/ 29 декабря 2018

Я пытаюсь создать инструмент для анализа запасов и хочу запустить его на shinyapps.io .Я хотел использовать stocksymbols(), чтобы получить все символы в selectinput в пользовательском интерфейсе.Локально это работает, но не в shinyapps.io.

Когда я запускаю его локально, он аккуратно загружает символы, но когда я просматриваю логи веб-приложения в shinyapps.io , это похоже наон зависает в точке, где он пытается загрузить символы.Это не дает сообщение об ошибке.Последний журнал выглядит следующим образом: 

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

Я довольно новичок в блестящем и QuantMod, поэтому, возможно, я делаю новичок, но я не смог найти ответ на свой вопрос в любом другомQ / A. 

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())
  })

}
...