test_that("vld_sqlite_conn", {
expect_false(vld_sqlite_conn(1))
conn <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
expect_true(vld_sqlite_conn(conn))
expect_true(vld_sqlite_conn(conn, connected = TRUE))
expect_false(vld_sqlite_conn(conn, connected = FALSE))
DBI::dbDisconnect(conn)
expect_true(vld_sqlite_conn(conn))
expect_false(vld_sqlite_conn(conn, connected = TRUE))
expect_true(vld_sqlite_conn(conn, connected = FALSE))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.