test_that("gi_available_templates works", {
templates <- gi_available_templates()
expect_true(inherits(templates, "character"))
expect_true(is.vector(templates))
expect_true("r" %in% templates)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.