A visit to Durham

find_local_tweeps.R

library(rtweet) #rtweet API creds should already be set up
library(stringi)
library(dplyr)

friends = get_friends(user="noamross")
followers = get_followers("noamross")
tweeps_id = distinct(bind_rows(friends, followers))
tweeps_info = lookup_users(tweeps_id$user_id)

# A regex for a visit to Durham
nc_regex = "(\\bNC\\b|North Carolina|Durham|Raleigh|\\bUNC\\b|University of North Carolina|Chapel Hill|\\bDuke\\b|\\,\\sNC\\b)"

nc_tweeps_info = tweeps_info %>%
  filter(stri_detect_regex(paste(name, screen_name, location, description),
                           nc_regex, case_insensitive=TRUE))

nc_tweeps_info %>%
  dplyr::select(name, screen_name, description, location) %>%
  arrange(location)