diff --git a/R/prepare_iss_average_sector_emission_intensities.R b/R/prepare_iss_average_sector_emission_intensities.R index f260d29..0f935aa 100644 --- a/R/prepare_iss_average_sector_emission_intensities.R +++ b/R/prepare_iss_average_sector_emission_intensities.R @@ -38,7 +38,7 @@ prepare_iss_average_sector_emission_intensities <- function(iss_company_emission factset_entity_financing_data %>% dplyr::left_join(factset_entity_info, by = "factset_entity_id") %>% dplyr::filter( - countrycode::countrycode(.data[["iso_country"]], "iso2c", "iso4217c") == .data[["currency"]] + countrycode::countrycode(.data[["iso_country"]], "iso2c", "iso4217c", warn = FALSE) == .data[["currency"]] ) %>% dplyr::left_join(currencies, by = "currency") %>% dplyr::mutate( diff --git a/R/prepare_iss_entity_emission_intensities.R b/R/prepare_iss_entity_emission_intensities.R index 3b72b30..1d2577d 100644 --- a/R/prepare_iss_entity_emission_intensities.R +++ b/R/prepare_iss_entity_emission_intensities.R @@ -37,7 +37,7 @@ prepare_iss_entity_emission_intensities <- function(iss_company_emissions, factset_entity_financing_data %>% dplyr::left_join(factset_entity_info, by = "factset_entity_id") %>% dplyr::filter( - countrycode::countrycode(.data[["iso_country"]], "iso2c", "iso4217c") == .data[["currency"]] + countrycode::countrycode(.data[["iso_country"]], "iso2c", "iso4217c", warn = FALSE) == .data[["currency"]] ) %>% dplyr::left_join(currencies, by = "currency") %>% dplyr::mutate(