R/anon_factor.R

In juliangrimm225/anonymizeR: Anonymize your Data

#' Anonymize factors
#'
#' Rename factor levels with unique, random characters.
#'
#' @param factor factor
#'
#' @return factor
#' @export
#'
#' @examples
#' anon_factor(iris$Species)
anon_factor <- function(factor) {
  l <- length(levels(factor))
  new_levels <- create_anon_chars(l)
  levels(factor) <- new_levels
  return(factor)
}