diff --git a/R/example_dictionary.R b/R/example_dictionary.R index 382f2ab7..ee354fbc 100644 --- a/R/example_dictionary.R +++ b/R/example_dictionary.R @@ -88,6 +88,7 @@ example_id <- function() { 15L, 3L, 1L, 16L, 1L, 1L, 17L, 1L, 1L, + 17L, 1L, 3L, 18L, 4L, 1L, 14L, 2L, 2L, 15L, 3L, 2L, diff --git a/tests/testthat/test-example_data.R b/tests/testthat/test-example_data.R index a95a70f2..3a6bc4ea 100644 --- a/tests/testthat/test-example_data.R +++ b/tests/testthat/test-example_data.R @@ -91,3 +91,8 @@ test_that("example_inputs() has co2 data of class 'double'", { out <- example_inputs() expect_type(out[[find_co2_footprint(out)]], "double") }) + +test_that("example_products() has column 'tilt_subsector'", { + out <- example_products() + expect_true(hasName(out, "tilt_subsector")) +})