r - 使用 twitteR 包在限制范围内下载推文

Question

我正在尝试使用 R 中的 twitteR 包下载推文。我有一个推特用户列表，我想下载他们的推文。我不断收到错误

Error in .self$twFromJSON(out) : 
  Error: Rate limit exceeded. Clients may not make more than 150 requests per hour.

我怎样才能减慢请求速度，以便它可以在限制范围内不间断地继续下载？以下是示例代码。

# Load package
library(twitteR)

# Read list of users from file
users <- read.table('listOfTwitterUsers.txt')

# Pause for 10 sec
sleepTime = 10

for (user in users){

   # Download latest 2000 tweets from the user's timeline
   tweets <- userTimeline(user, 2000)

   # Extract tweets
   tweets <- unlist( lapply(tweets, function(t) t$getText() ) )

   # Save tweets to file
   write.csv(tweets, file=paste("Downloads/", user, ".csv", sep=""), row.names=F)
   Sys.sleep(sleepTime)
}

Answer 1

根据 Twitter API 文档，速率限制为每 15 分钟 180 或 300 个请求，具体取决于授权。因此，您应该将 sys.sleep 调整为这个数字。

https://dev.twitter.com/rest/reference/get/statuses/user_timeline