credentials.r

library(ROAuth)

requestURL <- "https://api.twitter.com/oauth/request_token"
accessURL <- "https://api.twitter.com/oauth/access_token"
authURL <- "https://api.twitter.com/oauth/authorize"

# replace XYZ with your Twitter API consumer key
consumerKey <- "XYZ"

# replace ... with your Twitter API consumer secret
consumerSecret <- "XYZ"

my_oauth <- OAuthFactory$new(consumerKey = consumerKey, consumerSecret = consumerSecret,
                             requestURL = requestURL, accessURL = accessURL, authURL = authURL)

my_oauth$handshake(cainfo = system.file("CurlSSL", "cacert.pem", package = "RCurl"))

# replace XYZ with your screen name
save(my_oauth, file = "oauth_XYZ.rda")