addTA布林带绘制R

Question

当前正在构建一个Web应用程序，以使用Quantmod来显示股权数据的技术分析。

当尝试使用BBands（）绘制布林带时，应用程序返回以下错误：

其他技术分析（例如RSI或MACD）效果很好。因此，我想知道Bollinger波段的问题是什么，因为传递的参数包含文档中指定的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)