leadZeros: Add Leading Zeros to Numbers

In dami82/mutSignatures_dev: Decipher Mutational Signatures from Somatic Mutational Catalogs

Usage

leadZeros(n, m, char = "0", na.value = NA)

Arguments

n
m
char
na.value

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (n, m, char = "0", na.value = NA) 
{
    max.zeros <- nchar(as.character(round(m)))
    tmp.digits <- nchar(as.character(round(n)))
    zeros.toAdd <- max.zeros - tmp.digits
    returnVect <- sapply(1:length(n), function(i) {
        if (zeros.toAdd[i] >= 0) {
            paste(c(rep(char, zeros.toAdd[i]), as.character(round(n[i]))), 
                sep = "", collapse = "")
        }
        else {
            na.value
        }
    })
    return(returnVect)
  }

dami82/mutSignatures_dev documentation built on May 17, 2019, 7:02 p.m.