Reduce Length 3

Usage

red3(x)

Arguments

x: <list> of character vectors

Value

<list> of character vectors

Examples

random_hcpcs(20) |>
   split_lengths() |>
   split_first() |>
   process_groups() |>
   red3()
#> [[1]]
#> [[1]][[1]]
#> [1] "017"
#> 
#> [[1]][[2]]
#> [1] "066"
#> 
#> [[1]][[3]]
#> [1] "083"
#> 
#> 
#> [[2]]
#> [[2]][[1]]
#> [1] "119"
#> 
#> 
#> [[3]]
#> [[3]][[1]]
#> [1] "245"
#> 
#> 
#> [[4]]
#> [[4]][[1]]
#> [1] "469"
#> 
#> 
#> [[5]]
#> [[5]][[1]]
#> [1] "630"
#> 
#> [[5]][[2]]
#> [1] "646"
#> 
#> 
#> [[6]]
#> [[6]][[1]]
#> [1] "801"
#> 
#> 
#> [[7]]
#> [[7]][[1]]
#> [1] "964"
#> 
#> 
#> [[8]]
#> [[8]][[1]]
#> [1] "A70"
#> 
#> 
#> [[9]]
#> [[9]][[1]]
#> [1] "E01"
#> 
#> 
#> [[10]]
#> [[10]][[1]]
#> [1] "G99"
#> 
#> 
#> [[11]]
#> [[11]][[1]]
#> [1] "J35"
#> 
#> 
#> [[12]]
#> [[12]][[1]]
#> [1] "L18"
#> 
#> [[12]][[2]]
#> [1] "L5[68]"
#> 
#> 
#> [[13]]
#> [[13]][[1]]
#> [1] "S55"
#> 
#> 
#> [[14]]
#> [[14]][[1]]
#> [1] "V52"
#> 
#>