benchmarks/bench-addleadingzeroes.R

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

if (require(microbenchmark)) {
  stopifnot(identical(
    icd:::icd9_add_leading_zeroes_alt_rcpp(c("1", "E2", "V1", "E"), short_code = TRUE),
    icd:::icd9_add_leading_zeroes_rcpp(c("1", "E2", "V1", "E"), short_code = TRUE)
  ))

  bad_codes <- sample(c("E2", "V01", "1234", "12", "1", "E99", "E987", "V"),
    size = 1e4, replace = TRUE
  )
  microbenchmark::microbenchmark(
    icd:::icd9_add_leading_zeroes_alt_rcpp(bad_codes, short_code = TRUE),
    icd:::icd9_add_leading_zeroes_rcpp(bad_codes, short_code = TRUE)
  )
}