# Pacotes necessários ----------------------------------------------
library(BatchGetSymbols)
library(quantmod)
# Inputs necessários ------------------------------------------------------
#data inicial
first.date <- as.Date("2018-01-01")
#data final
last.date <- Sys.Date()
#frequencia das observações
freq.data <- 'daily'
# Ativos a serem baixados
tickers <- c("^BVSP")
# Importando ativos -------------------------------------------------------
ibov <- BatchGetSymbols(tickers = tickers,
                      first.date = first.date,
                      last.date = last.date,
                      freq.data = freq.data,
                      cache.folder = file.path(tempdir(),
                                               'BGS_Cache') )
ibov<-as.data.frame(ibov)

chartSeries

ibov<-xts(ibov, order.by = ibov$df.tickers.ref.date)
chartSeries(ibov)

Error in (function (cl, name, valueClass)  :
assignment of an object of class “character” is not valid for @‘yrange’ in
an object of class “chob”; is(value, "numeric") is not TRUE