create_data/create_crosswalks.R

In ldbolanos/standards: What the Package Does (One Line, Title Case)

library(textyr)
library(tidyverse)
library(openxlsx)

cp2011_to_isco08_table <- read.xlsx("inst/extdata/raccordo_Isco08_CP2011.xlsx") %>%
  select(ISCO08, CP2011) %>%
  .[-1,] %>%
  as_tibble()

usethis::use_data(cp2011_to_isco08_table, overwrite = TRUE)