Запрос на массовые запросы через gtrendsR: виджет $status_code == 200 не TRUE

Question

В настоящее время я работаю над извлечением массовых запросов из Google Trends через пакет gtrendsr в R. Для этого я сначала импортировал список слов (454 слова) в виде файла CSV в R и первоначально объявил вектор этих слова, обозначенные как "а".

df <- data.frame()

getSeries <- function(a){
out <- NULL
for(i in length(a)){
 trend1 <- gtrends(i, geo = "US", time = "2009-01-01 2009-02-01")
 trend2 <- gtrends(i, geo = "US", time = "2009-03-01 2009-04-01")
 vec <- rbind(as.matrix(trend1),as.matrix(trend2))
 out <- cbind(out,vec)
 }
return(out)
Sys.sleep(10)
}
getSeries(a)

Применяя этот код, я получаю следующее сообщение об ошибке:

 Error: widget$status_code == 200 is not TRUE

Я настоящий новичок в R, но я предполагаю, что приведенная выше ошибка как-то связана с массовыми запросами, которые я запрашиваю через этот код. Кто-нибудь уже сталкивался с этой проблемой и придумал решение?

Я использую пакет разработчика gtrendsR:

if (!require("devtools")) install.packages("devtools")
devtools::install_github('PMassicotte/gtrendsR')

Я с нетерпением жду всей вашей поддержки. Спасибо:)