Reduce Groups
Examples
random_hcpcs(20) |>
split_lengths() |>
split_first() |>
process_groups() |>
reduce_groups()
#> $g1
#> ^045[A-Z0-9]{4}
#>
#> $g2
#> $g2[[1]]
#> [1] "0[03]"
#>
#> $g2[[2]]
#> [1] "22"
#>
#> $g2[[3]]
#> [1] "32"
#>
#> $g2[[4]]
#> [1] "45"
#>
#> $g2[[5]]
#> [1] "75"
#>
#> $g2[[6]]
#> [1] "8[89]"
#>
#> $g2[[7]]
#> [1] "9[079]"
#>
#> $g2[[8]]
#> [1] "A[06]"
#>
#> $g2[[9]]
#> [1] "C9"
#>
#> $g2[[10]]
#> [1] "E0"
#>
#> $g2[[11]]
#> [1] "G8"
#>
#> $g2[[12]]
#> [1] "J9"
#>
#> $g2[[13]]
#> [1] "Q2"
#>
#>
#> $g3
#> $g3[[1]]
#> $g3[[1]][[1]]
#> [1] "06[349]"
#>
#>
#> $g3[[2]]
#> $g3[[2]][[1]]
#> [1] "116"
#>
#>
#> $g3[[3]]
#> $g3[[3]][[1]]
#> [1] "223"
#>
#> $g3[[3]][[2]]
#> [1] "276"
#>
#>
#> $g3[[4]]
#> $g3[[4]][[1]]
#> [1] "336"
#>
#>
#> $g3[[5]]
#> $g3[[5]][[1]]
#> [1] "813"
#>
#> $g3[[5]][[2]]
#> [1] "869"
#>
#>
#> $g3[[6]]
#> $g3[[6]][[1]]
#> [1] "A66"
#>
#>
#> $g3[[7]]
#> $g3[[7]][[1]]
#> [1] "C97"
#>
#>
#> $g3[[8]]
#> $g3[[8]][[1]]
#> [1] "G0[25]"
#>
#> $g3[[8]][[2]]
#> [1] "G20"
#>
#> $g3[[8]][[3]]
#> [1] "G86"
#>
#> $g3[[8]][[4]]
#> [1] "G9[13]"
#>
#>
#> $g3[[9]]
#> $g3[[9]][[1]]
#> [1] "J25"
#>
#>
#> $g3[[10]]
#> $g3[[10]][[1]]
#> [1] "K10"
#>
#>
#> $g3[[11]]
#> $g3[[11]][[1]]
#> [1] "T50"
#>
#>
#>
#> $g4
#> $g4[[1]]
#> $g4[[1]][[1]]
#> [1] "0280"
#>
#> $g4[[1]][[2]]
#> [1] "0781"
#>
#>
#> $g4[[2]]
#> $g4[[2]][[1]]
#> [1] "3331"
#>
#> $g4[[2]][[2]]
#> [1] "3347"
#>
#>
#> $g4[[3]]
#> $g4[[3]][[1]]
#> [1] "5059"
#>
#>
#> $g4[[4]]
#> $g4[[4]][[1]]
#> [1] "6054"
#>
#>
#> $g4[[5]]
#> $g4[[5]][[1]]
#> [1] "7738"
#>
#>
#> $g4[[6]]
#> $g4[[6]][[1]]
#> [1] "8521"
#>
#> $g4[[6]][[2]]
#> [1] "8697"
#>
#> $g4[[6]][[3]]
#> [1] "8759"
#>
#>
#> $g4[[7]]
#> $g4[[7]][[1]]
#> [1] "C948"
#>
#>
#> $g4[[8]]
#> $g4[[8]][[1]]
#> [1] "E097"
#>
#>
#> $g4[[9]]
#> $g4[[9]][[1]]
#> [1] "G211"
#>
#> $g4[[9]][[2]]
#> [1] "G885"
#>
#> $g4[[9]][[3]]
#> [1] "G905"
#>
#>
#> $g4[[10]]
#> $g4[[10]][[1]]
#> [1] "J276"
#>
#>
#> $g4[[11]]
#> $g4[[11]][[1]]
#> [1] "K003"
#>
#>
#> $g4[[12]]
#> $g4[[12]][[1]]
#> [1] "M113"
#>
#>
#> $g4[[13]]
#> $g4[[13]][[1]]
#> [1] "Q427"
#>
#>
#> $g4[[14]]
#> $g4[[14]][[1]]
#> [1] "V219"
#>
#>
#>
#> $g5
#> $g5[[1]]
#> $g5[[1]][[1]]
#> [1] "3160F"
#>
#>
#> $g5[[2]]
#> $g5[[2]][[1]]
#> [1] "0190U"
#>
#>
#> $g5[[3]]
#> $g5[[3]][[1]]
#> [1] "10036"
#>
#>
#> $g5[[4]]
#> $g5[[4]][[1]]
#> [1] "25526"
#>
#> $g5[[4]][[2]]
#> [1] "27709"
#>
#> $g5[[4]][[3]]
#> [1] "28630"
#>
#>
#> $g5[[5]]
#> $g5[[5]][[1]]
#> [1] "32503"
#>
#> $g5[[5]][[2]]
#> [1] "33476"
#>
#> $g5[[5]][[3]]
#> [1] "34490"
#>
#>
#> $g5[[6]]
#> $g5[[6]][[1]]
#> [1] "44899"
#>
#>
#> $g5[[7]]
#> $g5[[7]][[1]]
#> [1] "81520"
#>
#> $g5[[7]][[2]]
#> [1] "82652"
#>
#>
#> $g5[[8]]
#> $g5[[8]][[1]]
#> [1] "95874"
#>
#> $g5[[8]][[2]]
#> [1] "99190"
#>
#> $g5[[8]][[3]]
#> [1] "99407"
#>
#>
#> $g5[[9]]
#> $g5[[9]][[1]]
#> [1] "A4932"
#>
#>
#> $g5[[10]]
#> $g5[[10]][[1]]
#> [1] "K0824"
#>
#>
#> $g5[[11]]
#> $g5[[11]][[1]]
#> [1] "M1071"
#>
#> $g5[[11]][[2]]
#> [1] "M1308"
#>
#>
#> $g5[[12]]
#> $g5[[12]][[1]]
#> [1] "Q4002"
#>
#>
#>