strings <- paste0("abc", 1:12)
strings
NiceNums(strings)
NiceNums(c("abc9def55", "abc10def7"))
NiceNums(c("01abc9def55", "5abc10def777", "99abc4def4"))
## Not run: ------------------------------------
# NiceNums(c("abc9def55", "abc10xyz7"))
## ---------------------------------------------
Run the code above in your browser using DataLab