R Under development (unstable) (2025-05-13 r88200 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> # code used to setup and store data for tests #################################
> 
> # Expected to be evaluated from the tests directory interactively, uncomment
> # if/when data needs to be updated.
> 
> TRUE
[1] TRUE
> 
> # devtools::load_all()
> #
> # icd9_test_result <- ccc(pccc::pccc_icd9_dataset[, c(1:21)],
> #                         id      = id,
> #                         dx_cols = dplyr::starts_with("dx"),
> #                         pc_cols = dplyr::starts_with("pc"),
> #                         icdv    = 9)
> # icd10_test_result <- ccc(pccc::pccc_icd10_dataset[, c(1:21)],
> #                          id      = id,
> #                          dx_cols = dplyr::starts_with("dx"),
> #                          pc_cols = dplyr::starts_with("pc"),
> #                          icdv    = 10)
> # random_data_test_result <- ccc(data.frame(id = letters[1:3],
> #                                           dx1 = c('sadcj89sa', '1,2.3.4,5', 'sdf 9'),
> #                                           pc1 = c('da89v#$%', ' 90v_', 'this is a super long string compared to standard ICD codes and shouldnt break anything - if it does, the world will come to an end... Ok, so maybe not, but that means I need to fix something in this package.'),
> #                                           other_col = LETTERS[1:3]),
> #                                id      = id,
> #                                dx_cols = dplyr::starts_with("dx"),
> #                                pc_cols = dplyr::starts_with("pc"),
> #                                icdv    = 9) # should be all non-matches for CCCs regardless of version
> #
> # saveRDS(icd9_test_result, file = "icd9_test_result.rds")
> # saveRDS(icd10_test_result, file = "icd10_test_result.rds")
> # saveRDS(random_data_test_result, file = "random_data_test_result.rds")
> 
> proc.time()
   user  system elapsed 
   0.14    0.00    0.14