R/anon_char.R

In juliangrimm225/anonymizeR: Anonymize your Data

#' Anonymize character vectors
#'
#' Rename character vector entries with unique, random characters.
#'
#' @param char character
#' @param stringAsFactors logical
#'
#' @return char
#' @export
#'
#' @examples
#' anon_char(c("setosa", "versicolor", "virginica"))
#' anon_char(rownames(mtcars), stringAsFactors=FALSE)
anon_char <- function(char, stringAsFactors=TRUE) {

  factor <- as.factor(char)
  factor <- anon_factor(factor)
  if (stringAsFactors==FALSE) {
    factor <- as.character(factor)
  }
  return(factor)

}