diff --git a/R/toolGetEUcountries.R b/R/toolGetEUcountries.R index 46f40f0..d156671 100644 --- 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)