data-raw/brancher.R

In Steensson/branchekoder: A conversion table for Danish sectoral classification codes

# Loading
DB07 <- readr::read_delim(
  file = "data-raw/brancher.csv",
  delim = ",",
  col_types = paste0(paste0(rep("c", 11), collapse = ""), "_", collapse = "")
)

# Renaming
colnames(DB07) <- c(
  "NB",
  "std_DB07", "Titler",
  "std_127", "std_127_tekst",
  "std_36", "std_36_tekst",
  "std_19", "std_19_tekst",
  "std_10", "std_10_tekst"
)

# Removing dots
DB07$std_DB07 <- stringr::str_replace_all(DB07$std_DB07, "\\.", "")
DB07$std_127 <- stringr::str_replace_all(DB07$std_127, "\\.", "")

# Removing NA rows
DB07 <- DB07[rowSums(is.na(DB07)) != ncol(DB07), ]

# Saving to data folder
devtools::use_data(DB07, overwrite = TRUE)