R/manualCorrections.R

In SWS-Methodology/hsfclmap: Mapping table between country-specific HS codes and FCL codes

#' Correction of mistakes in country-specific
#' HS->FCL mapping tables from MDB files
#' @export


manualCorrections <- function(map) {
  map$tocode[map$area == 299 &
               map$fromcode == "29192" &
               map$tocode   == "19192" &
               map$fcl      == 1293] <- "29192"


  # In any case it is a duplicate
  map$fromcode[map$area == 33 &
                 map$fromcode == "0708900000" &
                 map$tocode   == "0207430000" &
                 map$fcl      == 1075]  <- "0207430000"

  map$fromcode[map$area == 255 &
                 map$fromcode == "210609030" &
                 map$tocode   == "21069030" &
                 map$fcl      == 175]  <- "21069030"
  map

}