通过gtrendsR请求批量查询：widget $ status_code == 200不为TRUE

Question

我目前正致力于通过R中的软件包gtrendsr从Google趋势中检索大量查询。为此，我首先将一个单词列表（454个单词）作为CSV文件导入到R中并最初声明为这些词的矢量表示为“a”。

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

我期待着您的所有支持。谢谢:)）