#' 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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.