R/descFCL.R

In SWS-Methodology/faoswsTrade: FAO Trade Module

#' @import dplyr
#' @export

descFCL <- function(item,
                    swsdomain = "trade",
                    swsdataset = "completed_tf_fcl_m49",
                    swsdimension = "measuredItemFS") {


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

  fclcodelist <- faosws::GetCodeList(swsdomain,
                                       swsdataset,
                                       swsdimension)

  # It is possible to ask SWS on specific codes, but if it is absent, you
  # get a 500 error from the server. So it is easier to get full set
  data.frame(item) %>%
    left_join(fclcodelist %>%
                as.data.frame() %>%
                select_(~code, ~description) %>%
                mutate_(code = ~as.integer(code)),
              by = c("item" = "code")) %>%
    select_(~description) %>%
    unlist() %>%
    unname()

}