test_that("legend_LQ returns a cowplot object", {
res <- legend_LQ()
expect_type(res, "list")
expect_that(res, is_a("gtable") , label = "legend_LQ should return a gtable")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.