test_that("MacArthur returns expected result", {
skip_on_cran()
suppressMessages(vcr::use_cassette("macarthur", serialize_with="json", {
macarthur <-
.standardize_macarthur("qualitative", "2015-01-01", "2019-01-01",
FALSE)
}))
expect_equal(nrow(macarthur), 3)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.