Nothing
test_that("hasn't changed", {
expect_snapshot_value(sector_classifications, style = "json2")
})
test_that("has an entry in data_dictionary", {
dd <- data_dictionary
expect_true(nrow(dd[dd$dataset == "sector_classifications", ]) > 0)
})
test_that("nace automotive sales are borderline", {
automotive <- c(451, 4511, 4519)
borderline <- subset(
sector_classifications,
subset = code_system == "NACE" & code %in% automotive,
select = "borderline",
drop = TRUE
)
expect_true(all(borderline))
})
test_that("has `sector` values that are lowercase not uppercase", {
sectors <- sort(unique(sector_classifications$sector))
expect_equal(sectors, tolower(sectors))
})
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.