【发布时间】:2016-07-29 10:52:34
【问题描述】:
当我运行以下代码时,我得到了错误:
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)
【问题讨论】: