R/zzz.R

n_tweets_path <- here::here("n_tweets.txt")
tips_path <- here::here("inst", "extdata", "tips.csv")
joined_path <- here::here("data-raw", "joined.csv")

utils::globalVariables(c("consumer_key", "consumer_secret", "access_token", "access_secret"))
save_twitter_token <- function() {
  source(here::here("twitter_keys.R"))

  rtweet::create_token(
    app = "RLangTip",
    consumer_key = consumer_key,
    consumer_secret = consumer_secret,
    access_token = access_token,
    access_secret = access_secret
  )
}
revodavid/rlangtip documentation built on May 12, 2019, 4:13 p.m.