Save Twitter Followers

if (!require("rtweet")) install.packages("rtweet") #install rtweet if it's not there

library(rtweet)
library(tidyverse)
library(readr)

username <- "yourusername"
t_flw <- get_followers(username, n = 75000)
t_users <- lookup_users(t_flw$user_id)
t_sort <- t_users %>%
          arrange(desc(followers_count)) %>%
          select(name, screen_name, friends_count, followers_count, description, url)

write_rds(t_users, file = paste(username,"followers.rds", sep="-")) # Save all profile data about followers
write_csv(t_sort , file = paste(username,"followers.csv", sep="-")) # Save shorter CSV file