library(nomisr)
context("nomis_content_type")
test_that("nomis_content_type return expected format", {
skip_on_cran()
expect_error(nomis_content_type())
content_id <- nomis_content_type("sources", "jsa")
expect_true(nrow(content_id) == 1)
expect_length(content_id, 4)
expect_type(content_id, "list")
expect_true(tibble::is_tibble(content_id))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.