benchmarks/bench-dropLeadingZeroes.R

In jackwasey/icd: Comorbidity Calculations and Tools for ICD-9 and ICD-10 Codes

library(microbenchmark)
library(icd)
x <- icd:::generate_random_decimal_icd9(1e6)
microbenchmark(
  stringr::str_replace(
    icd:::as_char_no_warn(x),
    "[[:space:]]*([EeVv]?)(0*)([\\.[:digit:]]*)[[:space:]]*",
    "\\1\\3"
  ),
  stringr::str_replace(
    icd:::as_char_no_warn(x),
    "[[:space:]]*([EeVv]?)(0*)([\\.[:digit:]]*)[[:space:]]*",
    "\\1\\3"
  ),
  gsub("[[:space:]]*([EeVv]?)(0*)([\\.[:digit:]]*)[[:space:]]*", "\\1\\3", x),
  times = 1000
)