if (FALSE) {
## get 5000 ids of users following the KFC account
(kfc <- get_followers("KFC"))
## get max number [per fresh token] of POTUS follower IDs
(pres <- get_followers("potus", n = 75000))
## resume data collection (warning: rate limits reset every 15 minutes)
pres2 <- get_followers("potus", n = 75000, page = next_cursor(pres))
## store next cursor in object before merging data
nextpage <- next_cursor(pres2)
## merge data frames
pres <- rbind(pres, pres2)
## store next cursor as an attribute in the merged data frame
attr(pres, "next_cursor") <- next_page
## view merged ddata
pres
}
Run the code above in your browser using DataLab