R/reverseLevels.R

In egenn/rtemis: Machine Learning and Visualization

# reverseLevels.R
# ::rtemis::
# 2019 E.D. Gennatas www.lambdamd.org

#' Reverse factor levels
#'
#' Reverse the order of a factor's levels
#'
#' @param x Factor
#' @export
#' @author E.D. Gennatas

reverseLevels <- function(x) {

  if (!is.factor(x)) {
    x
  } else {
    factor(x, levels = rev(levels(x)))
  }

} # rtemis::reverseLevels