#' 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")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.