addTA Полоса Боллинджера, сюжетная проблема R

Question

В настоящее время создается веб-приложение для отображения технического анализа данных по акциям с использованием Quantmod.

При попытке использовать BBands () для построения полос Боллинджера приложение возвращает меня со следующей ошибкой:

Другой технический анализ, такой как RSI или MACD, работает нормально.Поэтому мне интересно, что является проблемой для полос Боллинджера, поскольку передаваемый аргумент содержит столбцы High, Low и Close, как указано в документации.

    library('depmixS4')
    library("shiny")
    library("quantmod")
    library("data.table")

    ui <- fluidPage(

        plotOutput(outputId = "plot")

    )

    server <- function(input, output) {

        goog <- getSymbols("GOOGL", from = "2019-01-01", auto.assign = F)

        output$plot <- renderPlot({
            addTA(BBands(goog))
        }
        )


    }

    shinyApp(ui, server)