context("Model Creation")
test_that("Create Model", {
model <- createModel()
expect_is(model, "list")
# ...
})
test_that("Alter Model", {
# ...
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.