R/clear.database.R

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

#' rDisconnectSQL
#'
#' This function disconnects you from a SQL database
#' @param activate Do you love SQL? Defaults to TRUE.
#' @keywords Twitter
#' @export
#' @examples
#' clear.database()

clear.database <- function() {
	
if(exists("db.con")) {	
	
dbDisconnect(db.con)

print("Disconnected from Database")

} else {
	
print("No Database to Disconnect From")	
	
}

}