R/get.levels.R

In gabrielzanlorenssi/extfunctions:

#' Title
#'
#' get.levels extracts the levels of a vector.
#'
#' @param x vector of any data type.
#'
#' @return return (or coerce to) a factor vector.
#' @export
#'
#' @examples
#' x <- c("a", "b", "c", "b", "d", "c")
#' get.levels(x)
#'
#' set.seed(123)
#' y <- sample(1:10, size=20, replace=T)
#' get.levels(y)
get.levels <- function(x) {
  levels(as.factor(x))
}