# 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
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.