test_that("app_ui", {
config <- get_config()
ref_chr <- as.character(purrr::flatten(app_ui()))[1]
expect_true(grepl("head", ref_chr, fixed = TRUE))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.