From d59576ae5636becfa07a83a4c085497e310d9687 Mon Sep 17 00:00:00 2001 From: Mauro Lepore Date: Wed, 6 Dec 2023 15:41:26 +0000 Subject: [PATCH] Adapt tests to use quoted values of 'isic' (#101) --- R/utils-test.R | 4 ++++ tests/testthat/test-prepare_ictr_company.R | 2 +- tests/testthat/test-prepare_pctr_company.R | 2 +- 3 files changed, 6 insertions(+), 2 deletions(-) diff --git a/R/utils-test.R b/R/utils-test.R index ec6bdd09..1aa153e6 100644 --- 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 index 6428d7a9..75df7d87 100644 --- 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 index 08e0f6f4..b627dd62 100644 --- 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,