Archive a user's friends on twitter

archive_twitter_friends.R

library(rtweet)

# Initial authorization setup, only need to do once
# auth_setup_default() #nolint

# Authorize
auth_as("default")

# Set user name
user_name <- "PUT USER NAME HERE"

# Get list of friends (users followed)
my_friends <- get_friends(
  user_name,
  n = 5000,
  retryonratelimit = FALSE,
  parse = TRUE,
  verbose = TRUE)

# Get friends' data
my_friends_data <- lookup_users(
  my_friends$to_id,
  parse = TRUE,
  retryonratelimit = FALSE
)

# Save friends' data
saveRDS(my_friends_data, "my_friends_data.RDS")