0
をquantmod:シャイニーを使用してヤフーのURLへの接続にできないと私は、次のコードを実行すると、私はエラーを取得
chartSeries requires an xtsible object
お知らせください。 getSymbols
は、デフォルトではないリターンデータを行いますので、
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)