时间戳

首页 > 解决方案 > 闪亮的应用程序错误 chartSeries 需要一个 xtsible 对象？

r - 闪亮的应用程序错误 chartSeries 需要一个 xtsible 对象？

问题描述

我有以下闪亮的基本代码：

library(quantmod); library(shiny);

ui <- fluidPage(

  textInput("Symbol","Assign_Symbol","GOOG"),
  dateRangeInput("Date","Assing_Date", start = Sys.Date() - 20, end = Sys.Date()),

  plotOutput("Chart")

)

server <- function(input, output) {
  envSymbol <- new.env()
  Sym <- "Sym"

  envSymbol[[Sym]] <- reactive({
    as.xts(getSymbols(input$Symbol, auto.assign = FALSE))
  })

  output$Chart <- renderPlot({

    chartSeries(
      envSymbol[[Sym]],
      theme = chartTheme("white"),
      type = "line",
      subset = paste(input$Date, collapse = "::")
    )

  })

}

shinyApp(ui, server)

窗口按预期显示符号和日期，但在图表部分我总是得到Error: chartSeries requires an xtsible object

我不知道闪亮，这是来自在线代码示例。我找到了更长更复杂的样本，但我仍然得到相同的 xtsible 对象错误。

有人可以告诉我我错过了什么吗？

标签： rshinyquantmod

解决方案

反应式表达envSymbol[[Sym]]在技术上是一个函数。所以要调用它，你必须在调用时用括号 ( envSymbol[[Sym]]()) 调用它chartSeries。有关更多详细信息，请查看此视频。（应该在 1h03m 左右开始）

推荐阅读