R/getISCED.R

In pbiecek/PISAtools: A set of tools useful when dealing with PISA data.

getISCED <- function(..., base) {
  base <- sapply(strsplit(base, split="[<>]"), function(x) {
    if (is.na(x[1])) return(NA)
    if (tolower(substr(x[1], 1, 7)) == "did not") return ("ISCED level 0")
    x[length(x)]
  })
  addList <- rev(list(...))  
  if (length(addList) > 0) {
    for (i in seq_along(addList)) 
      base <- ifelse(addList[[i]] == "Yes" & !is.na(addList[[i]]), names(addList)[i], base)
  }
  base
}