R/convertComtradeM49ToFAO.R

Defines functions convertComtradeM49ToFAO

Documented in convertComtradeM49ToFAO

#' Converts area codes, stored in UNSD Comtrade M49, into FAO area codes
#'
#' @param reporters Numeric or character vector of UNSC M49 area codes.
#'
#' @return Integer vector of FAO area codes.
#'
#' @import dplyr
#' @export

convertComtradeM49ToFAO <- function(reporters) {

  if(!is.integer(reporters)) reporters <- as.integer(reporters)

  reporters <- data.frame(reporter = reporters,
                          stringsAsFactors = F)

  data("m49faomap", package = "faoswsTrade", envir = environment())

  reporters <- reporters %>%
    left_join(m49faomap, by = c("reporter" = "m49"))

  if(any(is.na(reporters$fao))) warning("Some area codes were not recognized")

  reporters$fao

}
SWS-Methodology/faoswsTrade documentation built on Feb. 13, 2023, 1:04 a.m.