R/factor2character.R

In hkauhanen/hipster: Henri's Idiosyncratic Package for Somewhat Tedious Everyday Routines

#' Factor to Character
#'
#' Turns a factor into a plain character vector.
#'
#' @param x Factor to be transformed
#'
#' @return Character vector, i.e. the factor without the levels.
#'
#' @export
factor2character <- function(x) {
  if (is.factor(x)) {
    return(levels(x)[as.numeric(x)])
  } else {
    return(x)
  }
}