Question

我有以下基本代码，具有光泽：

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对象错误。

有人可以告诉我我在想什么吗？

Answer 1

反应表达式envSymbol[[Sym]]从技术上讲是一个函数。因此，要调用它，必须在调用envSymbol[[Sym]]()时加上括号（chartSeries）。有关更多详细信息，请参见this video。（应该从1h03m开始）

闪亮的应用程序错误chartSeries是否需要xtsible对象？

1 个答案: