quantmod 两次向图表添加指标答案

【问题标题】：quantmod adds indicators twice to chartquantmod 两次向图表添加指标
【发布时间】：2020-01-26 13:46:38
【问题描述】：

当使用从 Shiny 服务器调用的 quantmod 的 chartSeries() 绘制图表时，技术指标会两次添加到图表中。

如果从控制台执行以下代码，则结果符合预期。当 Shiny App 服务器执行时，RSI 和 MACD 被添加到图表中两次。虽然 print 语句只显示一次。

getChart.raPortfolio <- function(obj) {
  if(is.xts(obj$chart)) {
    print("Was here!")
    chart <- chartSeries(obj$chart, 
      name = obj$symbol,
      theme = chartTheme("white"),
      type = "line", TA=c(
        addBBands(n = 50),
        addMACD(fast = 12, slow = 26, signal = 9),
        addRSI(n=14)
      )
    )
  }
  return(chart)
}

【问题讨论】：

标签： r shiny quantmod

【解决方案1】：

问题是由于在返回之前分配给图表对象引起的，这仅在通过 Shiny 调用时（而不是在控制台上运行时）引起问题。以下行为正确，包括添加指标时。

getChart.raPortfolio <- function(obj) {
  chartSeries(obj$data, 
    name = obj$symbol,
    theme = chartTheme("white")
)}

【讨论】：