Adapt tests to use quoted values of 'isic' (#101)

2DegreesInvesting · Dec 6, 2023 · d59576a · d59576a
1 parent 58e5027
commit d59576a
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 2 deletions.
diff --git a/R/utils-test.R b/R/utils-test.R
@@ -1,3 +1,7 @@
+unquote <- function(x) {
+  gsub("^'(.*)'$", "\\1", x)
+}
+
 format_minimal_snapshot <- function(data) {
   str(data, give.attr = FALSE)
 }

diff --git a/tests/testthat/test-prepare_ictr_company.R b/tests/testthat/test-prepare_ictr_company.R
@@ -30,7 +30,7 @@ test_that("handles numeric `isic*` in `co2`", {
   expect_no_error(
     profile_emissions_upstream(
       companies,
-      co2 |> modify_col("isic", as.numeric),
+      co2 |> modify_col("isic", unquote) |> modify_col("isic", as.numeric),
       europages_companies = ep_companies,
       ecoinvent_activities,
       ecoinvent_inputs = ecoinvent_inputs,

diff --git a/tests/testthat/test-prepare_pctr_company.R b/tests/testthat/test-prepare_pctr_company.R
@@ -29,7 +29,7 @@ test_that("handles numeric `isic*` in `co2`", {
   expect_no_error(
     profile_emissions(
       companies,
-      co2 |> head(3) |> modify_col("isic", as.numeric),
+      co2 |> modify_col("isic", unquote) |> modify_col("isic", as.numeric),
       europages_companies = ep_companies,
       ecoinvent_activities = ecoinvent_activities,
       ecoinvent_europage = small_matches_mapper,