Fix bug in toolGetMapping

pik-piam · Jul 13, 2023 · 9017ba2 · 9017ba2
1 parent 0ab2e6c
commit 9017ba2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/toolGetEUcountries.R b/R/toolGetEUcountries.R
@@ -1,7 +1,7 @@
 # These countries are the ones (essentiall the EU-27) that receive special treatment
 # in the SSP2EU scenario.
 toolGetEUcountries <- function(onlyWithARIADNEgdpData = FALSE) {
-  x <- toolGetMapping("regionmappingH12.csv", where = "mappingfolder") %>%
+  x <- toolGetMapping("regionmappingH12.csv", type = "regional", where = "mappingfolder") %>%
     tibble::as_tibble() %>%
     dplyr::filter(.data$RegionCode == "EUR", .data$CountryCode != "GBR") %>%
     dplyr::pull(.data$CountryCode)