#' Connect to RaMP database (requires mysql password when running locally)
#'
#' @param dbname the name of the database (by default a string that is database name including all tables
#' @param username a string that is username for database (default: root)
#' @param conpass password for database (string)
#' @param host a string that stand for host
#'
#' @examples
#' \dontrun{
#' con <- connectToRaMP(dbname="ramp",username="root",conpass="mypassword",host = "localhost")
#' }
#' @return MySQL connection based on given dbname,username,password, and host
#' @export
connectToRaMP <- function(dbname = "ramp",
username = "root",
conpass = NULL,
host ="localhost"){
if(is.null(conpass)) {
stop("Please define the password for the mysql connection")
}
con <- DBI::dbConnect(
drv = RMySQL::MySQL(),
dbname = dbname,
username = username,
password = conpass,
host = host
)
return(con)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.