Können connec to yahoo URL Glänzendes und quantmod mit

Question

Wenn ich den folgenden Code ausführen, erhalte ich die Fehlermeldung:

chartSeries requires an xtsible object

Bitte beraten.

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) 

Answer 1

Das Problem ist wahrscheinlich, weil getSymbols nicht Rückkehr die Daten standardmäßig. Stattdessen ordnet er die Daten dem parent.frame zu. Versuchen Sie die Einstellung auto.assign = FALSE oder env = NULL.

stock <- reactive({getSymbols(input$text, auto.assign = FALSE)}) 
# or 
stock <- reactive({getSymbols(input$text, env = NULL)})