R/map_country_values.R

In tonyfujs/eex2ddh:

#' map_country_values
#'
#' Map Country values from the EEX to DDH
#'
#' @param metadata_list list: output of extract_eex_metadata()
#' @param output list: output of map_eex_metadata_dataset()
#' @import dplyr
#' @importFrom rlang .data
#' @return list
#' @export
#'

map_country_values <- function(metadata_list, output) {

  # Merge Country and Region from EEX
  metadata_list$country_code <- c(metadata_list$country_code, metadata_list$region)
  lkup_values <- eex2ddh::dataset_master_lookup
  
  temp <- lapply(metadata_list$country_code, function(x){
    dplyr::filter(lkup_values, .data$eex_field_JSON == "country_code" & .data$eex_value == x) %>%
      dplyr::select("list_value_name")
  }) %>% unlist()

  # Account for Afric
  if("AFR" %in% metadata_list$country_code){
    temp <- c(temp,c("Middle East & North Africa","Sub-Saharan Africa"))

    # Remove AFR
    metadata_list$country_code <-  metadata_list$country_code[metadata_list$country_code!="AFR"]
  }

  if(length(temp) > 0){
    output[["field_wbddh_country"]] <- unique(temp)
  }

  # Make account of Country Codes not mapped to DDH
  country_codes <- dplyr::filter(lkup_values, .data$eex_field_JSON == "country_code") %>%
    dplyr::select("eex_value") %>%
    unlist()
  invalid_country_codes   <- unique(metadata_list$country_code[!metadata_list$country_code %in% country_codes])

  if(length(invalid_country_codes) > 0){
    output$invalid_country_codes <- invalid_country_codes
  }
  return(output)
}