context("test-create_site_model_from_name")
test_that("use", {
names <- c("JC69", "HKY", "TN93", "GTR")
for (name in names) {
expect_equal(name, create_site_model_from_name(name)$name)
}
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.