example_products() gains tilt_subsector (#803)

2DegreesInvesting · Jun 25, 2024 · c1f5a21 · c1f5a21
1 parent 3a39e01
commit c1f5a21
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git 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
@@ -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"))
+})