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

knitr::opts_chunk$set(echo = TRUE)

library(dplyr, warn.conflicts = FALSE)

esdata13 <- loadesdata(
  file.path(
  Sys.getenv("HOME"), 
  "ce_combinednomenclature_unlogged_2013.csv.gz"))

esdata14 <- loadesdata(
  file.path(
  Sys.getenv("HOME"), 
  "ce_combinednomenclature_unlogged_2014.csv.gz"))

esdata14 %>% 
  select(hs) %>% 
  distinct() %>% 
  anti_join(esdata13 %>% select(hs) %>% distinct(), 
            by = c("hs")) %>% 
  distinct() %>% arrange(hs)

es14newhs %>% 
  group_by(reporter) %>% 
  summarize(n = n()) %>% 
  arrange(desc(n))

write.csv(es14newhs %>% 
            select(reporter, flow, hs) %>% 
            arrange(reporter, flow, hs), 
          file = file.path(Sys.getenv("HOME"), 
                           "eurostat14newhs.csv"),
          row.names = FALSE, quote = FALSE)

SWS-Methodology/hsfclmap documentation built on May 9, 2019, 11:53 a.m.