使用twitteR软件包继续在限制内下载推文

时间:2012-02-23 11:33:05

标签: r twitter

我正在尝试使用R中的twitteR软件包下载推文。我有一个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)
}

1 个答案:

答案 0 :(得分:0)

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

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