R/connect.twitter.R

In sabalicodev/sabali: Twitter Text & Sentiment Analysis for R

#' rConnect Twitter
#'
#' This function lets you pay the boatman only once instead of each time.
#' @param activate Do you like coins? Defaults to TRUE.
#' @keywords rtweet
#' @export
#' @examples
#' connect.twitter()

connect.twitter <- function() {

if('rtweet' %in% rownames(installed.packages()) == TRUE) {
require(rtweet)} else {
install.packages("rtweet", repos = "http://cran.us.r-project.org")	
require(rtweet)}

if(Sys.info()["sysname"]  == "Darwin") {
	
if (file.exists("~/.rtweet_token.rds")) {
	
get_token()

print("Token Already Exists")
	
} else {

# Create Twitter API Token
token <- create_token(
	app = app.name, 
	consumer_key = api.key, 
	consumer_secret = api.secret.key,
	access_token = access.token, 
	access_secret = access.token.secret
	)

print("Token Created")

}

} else {
	
print("Not for Windows Yet")

}

}