data-raw/test-get_desc.R

In insongkim/concordance: Product Concordance

################################################################################
## setup
################################################################################
# clean slate
rm(list = ls())
date()

# load packages
library(concordance)


################################################################################
## test
################################################################################
# NAICS 2017
get_desc(sourcevar = c("111120", "326199", "111120"), origin = "NAICS2017")

get_desc(sourcevar = c("31-33", "44-45", "42", "48-49"), origin = "NAICS2017")

# Returns NA when there are no matches and gives warning
get_desc(sourcevar = c("111121", "326199", "111120", "111120"), origin = "NAICS2017")

# gives error when input digit does not exist
get_desc(sourcevar = c("111", "326"), origin = "NAICS2017")

# NAICS 2012
get_desc(sourcevar = c("111120", "326199", "111120"), origin = "NAICS2012")

# HS
get_desc(sourcevar = c("120600", "854690"), origin = "HS")

# gives error if number of digits not acceptable
get_desc(sourcevar = c("12060", "85469"), origin = "HS")

# HS0
get_desc(sourcevar = c("120600", "854690"), origin = "HS0")

# HS1
get_desc(sourcevar = c("120600", "854690"), origin = "HS1")

# HS2
get_desc(sourcevar = c("120600", "854690"), origin = "HS2")

# HS3
get_desc(sourcevar = c("120600", "854690"), origin = "HS3")

# HS4
get_desc(sourcevar = c("120600", "854690"), origin = "HS4")

# HS5
get_desc(sourcevar = c("120600", "854690"), origin = "HS5")

# ISIC2
get_desc(sourcevar = c("3114", "3831"), origin = "ISIC2")

# ISIC3
get_desc(sourcevar = c("1512", "3110"), origin = "ISIC3")

# ISIC4, code 3110 removed
get_desc(sourcevar = c("1512", "3110"), origin = "ISIC4")

# SITC1
get_desc(sourcevar = c("4216", "7232"), origin = "SITC1")

# SITC2
get_desc(sourcevar = c("4236", "7732"), origin = "SITC2")

# SITC3
get_desc(sourcevar = c("4221", "7732"), origin = "SITC3")

# SITC4
get_desc(sourcevar = c("4221", "7732"), origin = "SITC4")

# BEC
get_desc(sourcevar = c("001", "111"), origin = "BEC")