context("extract_codelist_urls")
test_that("extract_codelist_urls() works", {
d <- extract_codelist_urls("with-note.html")
expect_s3_class(d, "data.frame")
expect_equal(nrow(d), 1L)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.