test_that("can set options on creation", {
pool <- dbPool(RSQLite::SQLite(), onCreate = function(con) {
DBI::dbExecute(con, "PRAGMA journal_mode = TRUNCATE")
})
defer(poolClose(pool))
res <- DBI::dbGetQuery(pool, "PRAGMA journal_mode")[[1]]
expect_equal(res, "truncate")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.