library(nomisr)
context("nomis_get_data")
test_that("nomis_get_data return expected format", {
skip_on_cran()
z <- nomis_get_data(
id = "NM_1_1", time = "2021-11",
measures = c(20100, 20201), sex = 5,
exclude_missing = TRUE, geography = "TYPE499"
)
expect_length(z, 34)
expect_type(z, "list")
expect_true(tibble::is_tibble(z))
## Test queries of over 25000 observatiosn
a <- nomis_get_data(
id = "NM_893_1", date = "latest",
geography = "TYPE266", exclude_missing = FALSE, tidy = TRUE
)
expect_length(a, 40)
expect_type(a, "list")
expect_true(tibble::is_tibble(a))
expect_true(nrow(a) == a$record_count[1])
expect_equal(
as.numeric(a$record_offset[[nrow(a)]]) + 1,
as.numeric(a$record_count[[nrow(a)]])
)
sum_check <- unique(diff(as.numeric(a$record_offset)))
expect_length(sum_check, 1)
expect_equal(sum_check, 1)
expect_error(nomis_get_data(), "Dataset ID must be specified")
expect_message(
b <- nomis_get_data(
tidy = TRUE,
id = "NM_168_1", time = "latest",
geography = "2013265925", sex = "0", additional_queries = ""
), "The `additional_query` parameter is
deprecated, please use ... instead"
)
expect_true(nrow(b) == b$record_count[1])
expect_length(b, 40)
expect_type(b, "list")
expect_true(tibble::is_tibble(b))
c <- nomis_get_data(
id = "NM_127_1", sex = "6",
time = "latest", tidy = TRUE, tidy_style = "camelCase", query_id = "my_query123"
)
expect_length(c, 29)
expect_type(c, "list")
expect_true(tibble::is_tibble(c))
expect_true(nrow(c) == c$recordCount[1])
expect_equal(names(c)[[1]], "queryId")
expect_equal(c$queryId[[543]], "my_query123")
select_no_obs <- nomis_get_data(
id = "NM_1208_1", time = "latest",
USUAL_RESIDENCE = "TYPE499",
PLACE_OF_WORK = "TYPE499",
TRANSPORT_POWPEW11 = "2",
select = c(
"USUAL_RESIDENCE_NAME",
"PLACE_OF_WORK_NAME"
)
)
expect_length(select_no_obs, 2)
expect_true(tibble::is_tibble(select_no_obs))
expect_true(all(names(select_no_obs) == c(
"USUAL_RESIDENCE_NAME",
"PLACE_OF_WORK_NAME"
)))
mort_data1 <- nomis_get_data(
id = "NM_161_1", date = "2016", tidy = TRUE,
geography = "TYPE464",
CAUSE_OF_DEATH = "10381",
sex = 0, age = 0, MEASURE = 6
)
mort_data2 <- nomis_get_data(
id = "NM_161_1", date = "2016", tidy = TRUE,
geography = "TYPE464", sex = 0,
cause_of_death = "10381",
age = 0, measure = 6, measures = NULL
)
expect_true(all.equal(mort_data2, mort_data1))
expect_true(is.numeric(mort_data2$obs_value))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.