Невозможно подключиться к Yahoo URL, используя Shiny и QuantMod

r quantmod shiny

55 просмотра

1 ответ

14 Репутация автора

Когда я запускаю следующий код, я получаю сообщение об ошибке:

Для chartSeries требуется объект xtsible

Пожалуйста, порекомендуйте.

library(shiny)
library(quantmod)
library(xts)
ui<-fluidPage(
  ##dialogue box for text data 
  textInput(inputId = "text", label = h3("Text input"), value = "Insert stock symbol"),
  plotOutput("hist")      
  )

server<-function(input,output){

stock<-reactive({getSymbols(input$text)})
output$hist<-renderPlot({chartSeries(stock())})

 }

shinyApp(server=server,ui=ui)
Автор: Nic Источник Размещён: 18.07.2016 09:16

Ответы (1)


0 плюса

145822 Репутация автора

Проблема, вероятно, потому getSymbolsчто не возвращает данные по умолчанию. Вместо этого он присваивает данные в parent.frame. Попробуйте установить auto.assign = FALSEили env = NULL.

stock <- reactive({getSymbols(input$text, auto.assign = FALSE)})
# or
stock <- reactive({getSymbols(input$text, env = NULL)})
Автор: Joshua Ulrich Размещён: 20.07.2016 02:45
Вопросы из категории :
32x32