context("cantemp_meta")
test_that("cantemp_meta works correctly", {
meta <- cantemp_meta()
expect_is(meta, "data.frame")
expect_true(nrow(meta) == 338)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.