R/makeRedundantVectorIndividualized.R

In msxakk89/dat: Data Analyst Toolkit (dat): a library of tools for data analysts and scientists

#' Make a redundant vector individualized.
#' 
#' @param vec A vector. Can be a factor or character.
#' @return An individualized vector of character class
#' @export

makeRedundantVectorIndividualized <- function(vec) {
  u <- as.character(vec)
  un <- unique(u)
  for(i in 1:length(un)){
    u[un[i] == u] <- makeUniqueCasesIndividualized(u[un[i] == u])
  }
  return(u)
}