Извлечение ретвитов с помощью get_retweets с использованием 'rtweet'

Question

Я собрал набор оригинальных твитов (не ретвитов), но был ретвитнут хотя бы один раз. Для этого набора данных из 6000 оригинальных твитов я пытаюсь собрать 30 ретвитов для каждого из них, используя функцию get_retweets из пакета 'rtweet'. Исходя из прошлого опыта, если оригинальный твит не был ретвитнут хотя бы 30 раз, он просто вернул бы столько ретвитов, что и оригинальный твит.

get_retweets(status_id, n = 100, parse = TRUE, token = NULL, ...)

Моя строка кода выглядит так:

> for (i in seq(nrow(morethan1RT))) {  
  if (i == 1) {  
    my_retweets = data.frame(get_retweets(morethan1RT$status_id[i], n = 1))  
  }  
  else {  
    my_retweets = rbind(my_retweets, get_retweets(morethan1RT$status_id[i], n = 1))  
  }  
}  

Сначала я создал фрейм данных (для хранения всех ретвитов), используя идентификатор статуса первого оригинального твита для извлечения 0

Сначала этот цикл работал, но теперь я получаю только около 900 ретвитов (или даже меньше 100) после выполнения всего цикла. Я не был уверен, что пошло не так - поскольку в Твиттере есть ограничение на количество твитов, которые вы можете собирать каждые 15 минут, я пытался дольше ждать, чтобы запустить цикл; разделить 6000 твитов на меньшие партии; перезапуск г... Ни один из них не работал.

Я был бы очень признателен, если бы кто-то указал мне верное направление. Спасибо!

Answer 1

В документации rtweet говорится о get_retweets: "Возвращает коллекцию из 100 самых последних ретвитов с заданным статусом. ПРИМЕЧАНИЕ. В настоящее время API Twitter ограничен 100 или менее ретвиттерами".