test_that("guide UI returns a shiny tag object", {
expect_equal(class(exportGuideUI("id")), "shiny.tag")
})
test_that("guide module server provides output", {
shiny::testServer(exportGuideServer, args = list(registryName = "test"), {
expect_equal(class(output$exportGuide), "list")
})
})
test_that("guide test app returns an app object", {
expect_equal(class(exportGuideApp()), "shiny.appobj")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.