R/crosswalk.R

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

cp2isco <- function(cp_code){

  crosswalk_table <- standards::cp2011_to_isco08_table

  target_row <- match(cp_code, crosswalk_table$CP2011)

  isco_code <- crosswalk_table$ISCO08[target_row]

  return(isco_code)

}