Превышен лимит скорости Rtweet - попытка прочитать твиты временной шкалы для анализа настроений - PullRequest
Новая
       10

Превышен лимит скорости Rtweet - попытка прочитать твиты временной шкалы для анализа настроений

0 голосов
/ 07 ноября 2018

Я пытаюсь создать временные твиты из> 1000 пользователей для проведения анализа настроений и моделирования тем. Тем не менее, я получаю сообщение об ошибке ограничения скорости -> Предупреждение: превышен предел скорости - 88 Ошибка в if (n% /% 200

Я полагаю, что по крайней мере часть этой ошибки связана с ограничением количества твитов, которые я могу загружать из API Twitter каждые 15 минут.

Это мой код 

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 идентификаторов пользователей за период времени, необходимый для сбора этих данных

Обновление:

Когда я пытался заключить функцию get_timeline () в цикл for, так как я пытаюсь получить временную шкалу> 1000 пользователей, я получил это сообщение об ошибке:

Ошибка в avector [[i]] <- get_timeline (users [i], n = 1000): поставлено больше элементов, чем </em> заменить

Вот код, который я использовал 

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