x <- is.config.active("default")
expect_that(x, equals(TRUE))
x <- is.configfile.active("test.cfg")
expect_that(x, equals(FALSE))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.