Twitter Bulk Add to List

twitter-bulk-add-to-list.R

#
# Adds twitter users to a twitter list in bulk
#
library(twitteR)

query <- "#EHSFEST"
screen_name <- "herbps10"
list_slug <- "ehsfest"

setup_twitter_oauth(consumer_key = "...", consumer_secret = "...")

results <- searchTwitter(query, n = 1000)
df <- twListToDF(results)

groups <- split(unique(df$screenName), ceiling(seq_along(unique(df$screenName)) / 80)) %>%
  purrr::map(paste, collapse=",")

for(str in groups) {
  params <- list(
    slug = list_slug,
    screen_name = str,
    owener_screen_name = screen_name
  )
  resp <- POST("https://api.twitter.com/1.1/lists/members/create_all.json", 
       config = config(token = get("oauth_token", twitteR:::oauth_cache)), 
       query = params, 
       encode = "form")
}