R/phase5_onet.R

In djmorris1989/onetmappinguk: Map US O-NET to the UK SOC-2010

#' Map the O-NET information to the UK SOC
#'
#' This function converts the O-NET information from the US O-NET SOC system to the UK SOC.
#'
#'  A list containing four data frames:
#' @param p4
#' - The object produced by `phase4_onet()`
#' @param rescale
#' - If `TRUE` the rescaled O-NET data is used, otherwise the raw data is used.
#'
#' @return A list of dataframes of panels for each of the O-NET domains, converted to the UK SOC
#' - `uk.skills``
#' - `uk.abilities`
#' - `uk.activities`
#' - `uk.contexts`
#'
#' @export
phase5_onet <- function(p4=NULL,rescale=TRUE) {
print(paste0("Phase 5 of 6: Now Mapping O-NET Data to UK SOC-2010"))


if (rescale==TRUE) {
skills        <- map_skills_uk(cleaned.onet     = p4[["skills.rescaled"]],xwalk=cascot)
abilities     <- map_abilities_uk(cleaned.onet  = p4[["abilities.rescaled"]],xwalk=cascot)
activities    <- map_activities_uk(cleaned.onet = p4[["activities.rescaled"]],xwalk=cascot)
contexts      <- map_contexts_uk(cleaned.onet   = p4[["contexts.rescaled"]],xwalk=cascot)
} else if (rescale==FALSE) {
skills        <- map_skills_uk(cleaned.onet     = p4[["skills.raw"]],xwalk=cascot)
abilities     <- map_abilities_uk(cleaned.onet  = p4[["abilities.raw"]],xwalk=cascot)
activities    <- map_activities_uk(cleaned.onet = p4[["activities.raw"]],xwalk=cascot)
contexts      <- map_contexts_uk(cleaned.onet   = p4[["contexts.raw"]],xwalk=cascot)
}

  return(list(uk.skills     = skills,
              uk.abilities  = abilities,
              uk.activities = activities,
              uk.contexts   = contexts))
}