超出Rtweet速率限制-尝试读取时间轴tweet进行情感分析

Question

我正在尝试建立超过1000位用户的时间轴推文，以进行情感分析和主题建模。但是，我收到速率限制错误消息->警告：超出速率限制-88 if（n％/％200

我认为，此错误的至少一部分与我每15分钟可以从Twitter API上传的推文数量的上限有关。

这是我的代码

Install.packages("data.table")
library("data.table")
library(rtweet)    
this<-fread("twitter_list.csv", sep=",")
avector <- as.vector(this$V3)
tweeter_data <- get_timeline(avector, retryonratelimit = T)

我期望的结果是，在收集此数据所需的时间内，我可以从> 1000个用户ID中收集尽可能多的Tweet

更新：

当我尝试将get_timeline（）函数包含在for循环中时，由于我尝试获取> 1000个用户的时间轴，因此收到以下错误消息：

avector [[i]] <-get_timeline（users [i]，n = 1000）中的错误：   提供的元素多于不能替换

这是我使用的代码

avector <- as.vector(this$V3)
for (i in seq_along(avector)){
   avector[[i]] <- get_timeline(users[i], n =1000)
   if(i%%50L==0L){
     reset_l <- rate.limit("get_timeline")
     Sys.sleep(as.numeric(reset_l$reset, "secs"))
   }
   cat(i,"")
 }
avector <- do_call_rbind(avector)