Nothing
#' connectDB
#'
#' Connects to database using \code{\link[odbc]{dbConnect}}
#'
#' @param conn.info Connection info created at \code{\link{prepareConnection}}
#' @param ... Other parameters
#' @return \code{connection} to database
#' @export
connectDB <- function(conn.info, ...){
UseMethod("connectDB", conn.info)
}
#' connectDB.sqlite
#'
#' Connects to database using \code{\link[odbc]{dbConnect}}
#'
#' @param conn.info Connection info created at \code{\link{prepareConnection}}
#' @param ... Other parameters
#'
#' @return \code{connection} to database
#' @export
connectDB.sqlite <- function(conn.info, ...){
conn <- odbc::dbConnect(RSQLite::SQLite(), conn.info$db.name)
return(conn)
}
#' connectDB.default
#'
#' Connects to database using \code{\link[odbc]{dbConnect}}
#'
#' @param conn.info Connection info created at \code{\link{prepareConnection}}
#' @param ... Other parameters
#'
#' @return \code{connection} to database
#' @export
connectDB.default <- function(conn.info, ...){
conn <- odbc::dbConnect(conn.info$odbc.driver,
dsn = conn.info$dsn,
uid = conn.info$user,
pwd = conn.info$passwd,
database = conn.info$db.name,
host = conn.info$db.host,
encoding = conn.info$db.encoding,
...)
return(conn)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.