context("data")
x <- list(basecost, cost, costSummary, fmoba, fmobaSummary, cdratio, cdba, fbxfire, firesize)
test_that("data sets are available", {
purrr::walk(x, ~expect_is(.x, "tbl_df"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.