test_dbs <- function(resources = c("internet",
"testthat",
"testserver",
"sweetpotatobase",
"genesys")) {
if ("internet" %in% resources) {
testthat::test_dir("tests/internet")
}
if ("testserver" %in% resources) {
testthat::test_dir("tests/testserver")
}
if ("sweetpotatobase" %in% resources) {
testthat::test_dir("tests/sweetpotatobase")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.