R/code.R

In decoder: Decode Coded Variables to Plain Text and the Other Way Around

#' @rdname decode
#' @export
code <- function(y, keyvalue, verbose = TRUE){
  
  if (is.character(keyvalue)) {
    keyvalue <- get(keyvalue)
  }
  
  ## If there is a no 1:1 relation between key and value,
  ## the process continues just if the particular translation 
  ## can be done safely!
  if (!is.keyvalue11(keyvalue)) {
    dangerous_values <- summary(keyvalue)$nonunique$value
    not11 <- y %in% dangerous_values
    if (any(not11)) {
      if (verbose) { 
        print(summary(keyvalue)$nonunique[dangerous_values %in% y, ])
        stop("Values above have a non unique relation to their key!")
      } else{
        stop("Some values have a non 1:1 relation to their key. ",
             "Use parameter verbose = TRUE to see a list!")
      }
    }
  }
  
  names(keyvalue) <- rev(names(keyvalue))
  decode(y, keyvalue, exact = TRUE)
}