Nothing
# set time zone
Sys.setenv(TZ="America/Los_Angeles")
runTests <- function(db, redshift=FALSE) {
assign(".testthat_db", db, envir=.GlobalEnv)
runSelectTests(db)
runInsertTests(db, redshift=redshift)
runUpdateTests(db)
runUpsertTests(db, redshift=redshift)
runDeleteTests(db)
runDataTypeTests(db, redshift=redshift)
runExecuteTests(db)
rm(".testthat_db", envir=.GlobalEnv)
dbxDisconnect(db)
}
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.