if (FALSE) {
## Retrieve user ids of accounts following POTUS
f1 <- get_followers("potus", n = 75000)
## store next_cursor in page
page <- next_cursor(f1)
## max. number of ids returned by one token is 75,000 every 15
## minutes, so you'll need to wait a bit before collecting the
## next batch of ids
sys.Sleep(15 * 60) ## Suspend execution of R expressions for 15 mins
## Use the page value returned from \code{next_cursor} to continue
## where you left off.
f2 <- get_followers("potus", n = 75000, page = page)
## combine
f <- do.call("rbind", list(f1, f2))
## count rows
nrow(f)
}
Run the code above in your browser using DataLab