context("databases")
con <- ba_db()
test_that("DBs are present", {
expect_that(length(con) == 19, is_true())
})
test_that("DBs contains at least one well-known", {
expect_that("sweetpotatobase" %in% names(con), is_true())
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.