context("readonly")
test_that("read-only databases forbid writes", {
con <- dbConnect(SQLite(), ":memory:", flags = SQLITE_RO)
on.exit(dbDisconnect(con), add = TRUE)
expect_error(
dbWriteTable(con, "mtcars", mtcars),
"attempt to write a readonly database",
fixed = TRUE
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.