我正在尝试检索帐户的整个时间轴,在阅读了推特API之后,我编写了以下代码:
healthLeadersTimeline <- twListToDF(userTimeline("HealthLeaders", n=200, includeRts=TRUE, retryOnRateLimit=180))
write.table(healthLeadersTimeline, "health.csv", sep=",", row.names=FALSE)
maxID <- getMaxID(last(healthLeadersTimeline)$id)
healthLeadersTimeline <- twListToDF(userTimeline("HealthLeader", n=200, maxID=maxID, includeRts=TRUE, retryOnRateLimit=180))
write.table(healthLeadersTimeline, "health.csv", sep=",", append=TRUE, col.names=FALSE, row.names=FALSE)
和getMaxID实现如下:
getMaxID <- function (tweetID) {
lastID <- as.numeric(tweetID)
maxID <- toString(lastID -1)
return(maxID)
}
这个Twitter帐户显然有超过400条推文。但在第二次调用时间线时,我只能检索35条推文。 我在这做错了什么?