context("Building application metadata object")
test_that("shinyModule returns a metadata object that is just the name of the module.", {
aModuleName <- paste(sample(LETTERS, 20), collapse = "")
expect_equal(aModuleName, shinyModule(aModuleName))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.