R/padnums.R

Defines functions padnums

# padnums.R
# ::rtemis::
# 2021 E.D. Gennatas www.lambdamd.org

padnums <- function(x, pad = "X") {
  for (i in seq_along(x)) {
    if (grepl("[[:digit:]]", substr(x[i], 1, 1))) {
      x[i] <- paste0(pad, x[i])
    }
  }
  x
} # rtemis::padnums
egenn/rtemis documentation built on May 4, 2024, 7:40 p.m.