转推用户列表的数量

Question

我有一个Twitter句柄列表，我希望对其进行转推计数。我能够通过单个句柄获取它，但无法一次为整个列表进行计算。

我正在使用这个：

library(twitteR)
library(rtweet)
library(tidytext)
library(httr)
library(RCurl)
install.packages("plyr")
library(plyr)
library(RJSONIO)
library(stringr)

users <- read.csv("Twitter.csv")
users1 <- lookupUsers(users[2:5,1])

sample <- matrix(NA,1000,1)
for (i in 2:5) {
  sample[i,] <- sum(sapply(userTimeline(users[i,], n=5),
                           function(x) x$retweetCount))
}

但这给了我这个错误：

Error in twInterfaceObj$doAPICall(cmd, params, method, ...) : 
  Not Found (HTTP 404).

我如何使其运行？任何帮助将不胜感激