In KWB-R/kwb.twitter: Simplify Access to Twitter Messages

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

to_eval <- FALSE

twitter_vars <- sprintf("twitter_%s",
                          c("app",
                            "consumer_key", 
                            "consumer_secret", 
                            "access_token",
                            "access_secret"))

is_not_defined <- Sys.getenv(twitter_vars) == ""

if(all(is_not_defined)) {

  if(file.exists("secrets.csv")) {
 secrets <- as.vector(read.csv("secrets.csv")) 

Sys.setenv("twitter_app" = secrets$twitter_app,
           "twitter_consumer_key" = secrets$twitter_consumer_key, 
           "twitter_consumer_secret" = secrets$twitter_consumer_secret,
           "twitter_access_token" = secrets$twitter_access_token, 
           "twitter_access_secret" = secrets$twitter_access_secret)
 to_eval <- TRUE 
}}  else if (!all(is_not_defined)) {
 to_eval <- TRUE   
} else {
  to_eval <- FALSE
}

Create Twitter Token

twitter_token <- kwb.twitter::create_twitter_token()
rtweet:::rate_limit(token = twitter_token)

Get Data For KWB Tweeters

users <- c("CLoderer", "kompetenzwasser", "MichaelRustler", "KWBerlin_R", 
           "nutrient_rec", "rgnirss", "UlfMiehe")

kwb_tweeters <- rtweet::lookup_users(users, token = twitter_token)

## preview users data
kwb_tweeters 

kwb_timelines <- rtweet::get_timelines(users, 
                                       n = 3200,
                                       token = twitter_token)


table(kwb_timelines$screen_name)

Plot Tweet Timeline Per Tweeter

kwb.twitter::plot_timelines_per_tweeter(timelines = kwb_timelines)

## get user IDs of accounts followed by kwb
kwb_follows <- rtweet::get_friends("kompetenzwasser", token = twitter_token)
## get user IDs of accounts followed by CNN
kwb_followers <- rtweet::get_followers("kompetenzwasser", token = twitter_token)
kwb_followers_info <- rtweet::lookup_users(kwb_followers$user_id,token = twitter_token)
# extract most recent tweets data from the famous tweeters
kwb_tweets <- rtweet::tweets_data(kwb_tweeters)
rtweet:::rate_limit(token = twitter_token)