R/automatic_setup.R

In epmrio/TwitterFollowersNetwork: Get Twitter networks graphs based on followers and following

#' Automaticaly sets up authorization of Twitter API access
#'
#' Use this function prior to get_followers_network to connect to the API. You will need yours API keys and the name of your APP
#'
#' @param cons_key Your consumer key
#' @param cons_secret Your consumer secret key
#' @param acc_token Your consumer access token
#' @param acc_secret Your consumer access secret token
#' @param app_name The name of your application
#'
#' @return Connects to the API and stores your credentials in a variable "twitter_token" that you can use after to retrieve networks
#'
#' @examples
#'
#' \dontrun{
#'
#' ## To activate the API with your credentials
#'
#' # Save your different keys in variables
#' cons_key = "..."
#' cons_secret = "..."
#' acc_token = "..."
#' acc_secret = "..."
#' application_name = "..."
#'
#' # Use the function to activate the API
#' automatic_setup(cons_key, cons_secret, acc_token, acc_secret, app_name)
#'
#' }
#'
#' @export

automatic_setup <- function(cons_key,cons_secret,acc_token,acc_secret,app_name) {
  # Checking rtweet package and loading it
  require(rtweet)
  # Setting authentification using rtweet method
  # Using "create_token" function from rtweet to get Twitter authorization
  twitter_token <- create_token(app = app_name, consumer_key = cons_key, consumer_secret = cons_secret, access_token = acc_token, access_secret = acc_secret)
  # Checking if authentification is correct. Je dois trouver un autre moyen de vérifier si c'est correct + il faut que ça ne me fasse pas de retour dans le terminal
  test<-invisible(search_users("epmrio",token = twitter_token))
  if (nrow(test)==0) {
    print("wrong authentification, please try again")
  } else if (nrow(test)!=0) {
    print("Success ! Your credentials has been saved under the name 'twitter_token'")
  }
  return(twitter_token)
}