R/factor_converter_1L.R

Defines functions factor_converter_1L

factor_converter_1L <- function(f){
  # conversion for character data
  if (is.na(as.numeric(levels(f)))){
    as.character(levels(f))
    # conversion for numeric data
  } else {
    as.numeric(levels(f))
  }
}
benbellman/overwatchr documentation built on March 10, 2024, 4:28 a.m.