# use a temp directory so we don't have to cleanup later
temp_dir <- tempdir()
.mockPaths(temp_dir)
# load various libraries
library(DBI)
library(RSQLite)
db_user <- "travis"
db_pass <- "*V7y5N2r"
odbc_driver <- if (.Platform$OS.type == "windows") {
"PostgreSQL Unicode(x64)"
} else {
"PostgreSQL Unicode"
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.