Nothing
library(nomisr)
context("nomis_get_metadata")
test_that("nomis_get_metadata return expected format", {
skip_on_cran()
expect_error(nomis_get_metadata(), "The dataset ID must be specified.")
b <- nomis_get_metadata("NM_1_1", "item", search = "*married*")
expect_equal(nrow(b), 1)
expect_true(tibble::is_tibble(b))
d <- nomis_get_metadata(
id = "NM_893_1", concept = "C_AHTHUK11", type = "1"
)
expect_equal(nrow(d), 1)
expect_true(tibble::is_tibble(d))
e <- nomis_get_metadata(
"NM_1_1", "item",
geography = 1879048226, sex = 5
)
expect_equal(nrow(e), 5)
expect_true(tibble::is_tibble(e))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.