Rate Limit Exceeded with Fast argument ON

[ebravofm]

Hi!

I'm running this snippet on a csv file containing 200 user names:

library("tweetbotornot")
rts <- read.csv(file="rts.csv", header=TRUE, sep=",")
data <- tweetbotornot(rts$Twitter.Name, fast = TRUE)

I'm setting the fast argument on, however I'm getting this error:

Warning message:
“Rate limit exceeded - 88”
Error in if (n%/%200 < n.times) {: argument is of length zero
Traceback:

1. botornot(rts$Twitter.Name, fast = TRUE)
2. botornot.factor(rts$Twitter.Name, fast = TRUE)
3. botornot(x, fast = fast)
4. botornot.character(x, fast = fast)
5. rtweet::get_timelines(x, n = 100)
6. get_timeline(user, n, max_id, home, parse, check, token, ...)
7. do.call("get_timeline_", args)
8. get_timeline_(user = c("---list of users---), n = 100, home = FALSE, max_id = NULL,
   . parse = TRUE, check = TRUE, token = NULL)
9. Map(get_timeline_call, user = user, n = n, home = home, MoreArgs = dots)
10. mapply(FUN = f, ..., SIMPLIFY = FALSE)
11. (function (user, n = 200, max_id = NULL, home = FALSE, parse = TRUE,
    . check = TRUE, token = NULL, ...)
    . {
    . stopifnot(is_n(n), is.atomic(user), is.atomic(max_id), is.logical(home))
    . if (home) {
    . query <- "statuses/home_timeline"
    . }
    . else {
    . query <- "statuses/user_timeline"
    . }
    . if (length(user) > 1) {
    . stop("can only return tweets for one user at a time.",
    . call. = FALSE)
    . }
    . token <- check_token(token)
    . if (check) {
    . rl <- rate_limit(token, query)
    . n.times <- rl[["remaining"]]
    . if (n%/%200 < n.times) {
    . n.times <- ceiling(n/200L)
    . }
    . }
    . else {
    . rl <- NULL
    . n.times <- ceiling(n/200L)
    . }
    . if (n.times == 0L) {
    . if (!is.null(rl)) {
    . reset <- round(as.numeric(rl[["reset"]], "mins"),
    . 2)
    . }
    . else {
    . reset <- "An unknown number of"
    . }
    . warning("rate limit exceeded. ", round(reset, 2), " mins until rate limit resets.",
    . call. = FALSE)
    . return(data.frame())
    . }
    . if (n < 200) {
    . count <- n
    . }
    . else {
    . count <- 200
    . }
    . params <- list(user_type = user, count = count, max_id = max_id,
    . tweet_mode = "extended", ...)
    . names(params)[1] <- .id_type(user)
    . url <- make_url(query = query, param = params)
    . tm <- scroller(url, n, n.times, type = "timeline", token)
    . if (parse) {
    . tm <- tweets_with_users(tm)
    . }
    . tm
    . })(user = dots[[1L]][[1L]], n = dots[[2L]][[1L]], home = dots[[3L]][[1L]],
    . max_id = NULL, parse = TRUE, check = TRUE, token = NULL)

Am i doing something wrong?

Thanks!

[joaoakio]

I'm having the same issue

[jimeneztyler]

i'm having the same problem as well, did anyone find a solution?

[Jupaoqq]

@ebravofm @joaoakio @jimeneztyler

1. delete this package (tweetbotornot) from your R packages library
2. Fork this Repo
3. in (whatever your github username is)/tweetbotornot/R/tweetbotornot.R, in line 89 to 96, change

botornot.character <- function(x, fast = FALSE) {
x <- x[!is.na(x) & !duplicated(x)]
x <- rtweet::get_timelines(x, n = 100)
botornot(x, fast = fast)
}

to

botornot.character <- function(x, fast = FALSE) {
x <- x[!is.na(x) & !duplicated(x)]
if (fast)
{
x <- rtweet::lookup_users(x)
}
else
{
x <- rtweet::get_timelines(x, n = 100)
}
botornot(x, fast = fast)
}

4. commit those changes
5. open a R session, then do

library(devtools)
install_github("(whatever your github username is)/tweetbotornot", dependencies = TRUE)

6. Run your R script

I've also opened a pull request to make those changes to this repo to fix this issue.

[jimeneztyler]

@Jupaoqq thanks so much! This worked for me

[jimeneztyler]

Hi, i'm back again with the same issue. I have a large list of user names and keep getting the rate limit exceeded message when running tweetbotornot. I edited the code to include @Jupaoqq suggestion, which worked previously but isn't this time. Any ideas on whats going on? or is anyone else having this issue?