R/make.unique.2.R

In vladpetyuk/vp.misc: Miscellaneous functions used by Vlad Petyuk for proteomics data analysis

#' Custom Make Unique
#' 
#' Similar to \code{\link[base]{make.unique}}, but with some
#' customization. E.g. starts counting with ".1" instead of blank.
#' 
#' @param x character vector with non-unique entries
#' @return character vector where all entries have attached suffix
#'          resolving their non-uniqueness. 
#' 
#' @export make.unique.2
#' 
#' @examples 
#' make.unique(c('a','b','b'))
#' make.unique.2(c('a','b','b'))

make.unique.2 <- function(x){
    if(!any(duplicated(x)))
        return(x)
    xu <- unique(x)
    x2 <- c(xu, x)
    x2 <- make.unique(x2)
    return(x2[-seq_along(xu)])
}