context("test-module_databasetab")
set.seed(42)
suppressWarnings(
a <- databaseTabUIFunc(function(x)x)
)
test_that("multiplication works", {
testthat::expect_equal(class(a), c("shiny.tag.list", "list"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.