inst/source_tweets.R

In dtminnick/whistleblower: Twitter Whistleblower Data Analysis

# Load libraries.

library(keyring)
library(rtweet)

# Unlock keyring; prompts for keyring password on local machine.

keyring_unlock("twitter_search_api")

# Create Twitter token using API keys stored in keyring.

twitter_token <- create_token(app = key_get("app_name", keyring = "twitter_search_api"),
                              consumer_key = key_get("api_key", keyring = "twitter_search_api"),
                              consumer_secret = key_get("api_secret", keyring = "twitter_search_api"),
                              access_token = key_get("access_token", keyring = "twitter_search_api"),
                              access_secret = key_get("access_secret", keyring = "twitter_search_api"))

# Lock keyring.

keyring_lock("twitter_search_api")

# Search and return tweets using hashtag; update suffix with current date
# in YYYMMDD format.  Will return up to 10,000 tweets depending on volume of activity.

tweets_20191114 <- as.data.frame(search_tweets(q = "#whistleblower",
                                               n = 10000,
                                               include_rts = FALSE,
                                               lang = "en"))

# Save data in extdata directory; one file per date.

saveRDS(tweets_20191114, "./inst/extdata/tweets_20191114.RData")