Question

当我运行以下代码时，我收到错误：

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)

Answer 1

问题可能是因为getSymbols默认情况下 数据。相反，它会将数据分配到parent.frame。尝试设置auto.assign = FALSE或env = NULL。

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

无法使用Shiny和quantmod

1 个答案: