test_that("rws_connect", {
expect_error(
rws_connect(":memory:", exists = TRUE),
"File ':memory:' must already exist."
)
conn <- rws_connect(":memory:")
expect_true(vld_sqlite_conn(conn, connected = TRUE))
rws_disconnect(conn)
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.