R/save.tweets.R

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

#' rSaveTweets
#'
#' This function saves all your Tweet data in a CSV File
#' @param activate Do you love Twitter? Defaults to TRUE.
#' @keywords Twitter
#' @export
#' @examples
#' save.tweets()

save.tweets <- function() {
	
# Save Tweet Data as CSV File (nk)

if(Sys.info()["sysname"]  == "Darwin") {

if(exists("nk.tweets")) {
	
save_as_csv(nk.tweets, paste0("", getwd() ,"/", nk.name ,"-Tweets-", format(Sys.time(), "%Y-%b-%d-%H-%M"), ".csv"))

}

if(exists("cbo.tweets")) {
	
save_as_csv(cbo.tweets, paste0("", getwd() ,"/", cbo.name ,"-Tweets-", format(Sys.time(), "%Y-%b-%d-%H-%M"), ".csv"))

}

} else {	

if(exists("nk.tweets")) {
	
save_as_csv(nk.tweets, paste0("", getwd() ,"\\", nk.name ,"-Tweets-", format(Sys.time(), "%Y-%b-%d-%H-%M"), ".csv"))	

}

if(exists("cbo.tweets")) {
	
save_as_csv(cbo.tweets, paste0("", getwd() ,"\\", cbo.name ,"-Tweets-", format(Sys.time(), "%Y-%b-%d-%H-%M"), ".csv"))

}

}
	
}