auth.R

rm(list=ls())
 
library(twitteR)
library(httr)
 
# 1. Find OAuth settings for twitter:
#    https://dev.twitter.com/docs/auth/oauth
oauth_endpoints("twitter")
 
Sys.setenv(TWITTER_CONSUMER_SECRET = "")
 
# 2. Register an application at https://apps.twitter.com/
#    Insert your values below - if secret is omitted, it will look it up in
#    the TWITTER_CONSUMER_SECRET environmental variable.
monapplicationpourROAuth <- oauth_app("twitter", key = "")
 
apikey<- ""
apisecret<- ""
accesstoken<- ""
accesstokensecret<- ""
setup_twitter_oauth(apikey, apisecret, accesstoken, accesstokensecret)