#' Connect to server/database in Microsoft SQL Server
#'
#' @param server server name
#' @param database database name
#' @param uid username
#' @param pwd password
#' @return A connection to SQL Server
#' @examples
#' sql_connect(server = "SQL_PROD_01", database = "dbo.CUSTOMERS")
#' @export
sql_server_connect <- function(server, database, uid = NULL, pwd = NULL) {
if (!all(sapply(list(server, database), class) == 'character'))
stop("all arguments should be character strings (eg 'SQLDEV11\\SQL_DEV11')")
DBI::dbConnect(drv = odbc::odbc(),
driver = "SQL Server",
server = server,
database = database,
uid = uid,
pwd = pwd,
port = 1433,
Trusted_Connection = TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.