# NOT RUN {
library(microbenchmark)
requireNamepsace("stringr")
# stringr::str_split is faster this time
x <- icd:::generate_random_decimal_icd9(10)
microbenchmark(strsplit(x, "\\."), stringr::str_split(x, "\\."))
# str_trim is faster with nothing to trim
microbenchmark(trim(x), stringr::str_trim(x))
# }
Run the code above in your browser using DataLab