context("testing statistic outputs")
test_that("statistics are printed", {
# Summary of vegtable objects
result <- evaluate_promise(print(vegtable_stat(Kenya_veg)), print = TRUE)
expect_true(grepl("## Metadata", result$output))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.