QuantMod добавляет индикаторы дважды на график

Question

При построении диаграммы с помощью метода QuantSim chartSeries (), вызываемого с сервера Shiny, технические индикаторы добавляются на график дважды.

Если приведенный ниже код выполняется из консоли, результаты ожидаются. При выполнении сервером Shiny App RSI и MACD добавляются к графику дважды. Хотя печать заявления показывает только один раз.

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)
}

Answer 1

Проблема была вызвана назначением объекта диаграммы перед возвратом, что вызывало проблему только при вызове через Shiny (не при запуске на консоли). Ниже ведет себя корректно, в том числе при добавлении индикаторов.

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