Process Groups

Usage

process_groups(x)

Arguments

x: <list> of character vectors

Value

<list> of character vectors

Examples

random_hcpcs(10) |>
   split_lengths() |>
   remove_redundant() |>
   split_first() |>
   process_groups()
#> $g1
#> [1] "9" "M" "T"
#> 
#> $g2
#> $g2[[1]]
#> [1] "06"
#> 
#> $g2[[2]]
#> [1] "15"
#> 
#> $g2[[3]]
#> [1] "31"
#> 
#> $g2[[4]]
#> [1] "54"
#> 
#> $g2[[5]]
#> [1] "85"
#> 
#> $g2[[6]]
#> [1] "E2"
#> 
#> $g2[[7]]
#> [1] "K0"
#> 
#> $g2[[8]]
#> [1] "Q4"
#> 
#> 
#> $g3
#> $g3[[1]]
#> $g3[[1]][[1]]
#> [1] "017"
#> 
#> $g3[[1]][[2]]
#> [1] "029"
#> 
#> $g3[[1]][[3]]
#> [1] "058"
#> 
#> 
#> $g3[[2]]
#> $g3[[2]][[1]]
#> [1] "271"
#> 
#> 
#> $g3[[3]]
#> $g3[[3]][[1]]
#> [1] "G05"
#> 
#> $g3[[3]][[2]]
#> [1] "G98"
#> 
#> 
#> 
#> $g4
#> $g4[[1]]
#> $g4[[1]][[1]]
#> [1] "0004"
#> 
#> $g4[[1]][[2]]
#> [1] "0286"
#> 
#> 
#> $g4[[2]]
#> $g4[[2]][[1]]
#> [1] "3376"
#> 
#> 
#> $g4[[3]]
#> $g4[[3]][[1]]
#> [1] "4327"
#> 
#> 
#> $g4[[4]]
#> $g4[[4]][[1]]
#> [1] "7930"
#> 
#> 
#> $g4[[5]]
#> $g4[[5]][[1]]
#> [1] "E096"
#> 
#> 
#> $g4[[6]]
#> $g4[[6]][[1]]
#> [1] "J126"
#> 
#> $g4[[6]][[2]]
#> [1] "J278"
#> 
#> 
#> $g4[[7]]
#> $g4[[7]][[1]]
#> [1] "L376"
#> 
#> $g4[[7]][[2]]
#> [1] "L669"
#> 
#> 
#> 
#> $g5
#> $g5[[1]]
#> $g5[[1]][[1]]
#> [1] "26499"
#> 
#> $g5[[1]][[2]]
#> [1] "28112"
#> 
#> 
#> $g5[[2]]
#> $g5[[2]][[1]]
#> [1] "35188"
#> 
#> $g5[[2]][[2]]
#> [1] "38210"
#> 
#> 
#> $g5[[3]]
#> $g5[[3]][[1]]
#> [1] "67800"
#> 
#> 
#> $g5[[4]]
#> $g5[[4]][[1]]
#> [1] "A6154"
#> 
#> 
#> $g5[[5]]
#> $g5[[5]][[1]]
#> [1] "C1757"
#> 
#> 
#> $g5[[6]]
#> $g5[[6]][[1]]
#> [1] "J0134"
#> 
#> 
#>