Reduce Length 4

Usage

red4(x)

Arguments

x: <list> of character vectors

Value

<list> of character vectors

Examples

random_hcpcs(20) |>
   split_lengths() |>
   split_first() |>
   process_groups() |>
   red4()
#> [[1]]
#> [[1]][[1]]
#> [1] "008[56]"
#> 
#> 
#> [[2]]
#> [[2]][[1]]
#> [1] "2611"
#> 
#> 
#> [[3]]
#> [[3]][[1]]
#> [1] "3551"
#> 
#> 
#> [[4]]
#> [[4]][[1]]
#> [1] "4438"
#> 
#> 
#> [[5]]
#> [[5]][[1]]
#> [1] "5866"
#> 
#> 
#> [[6]]
#> [[6]][[1]]
#> [1] "6731"
#> 
#> 
#> [[7]]
#> [[7]][[1]]
#> [1] "8634"
#> 
#> [[7]][[2]]
#> [1] "8763"
#> 
#> 
#> [[8]]
#> [[8]][[1]]
#> [1] "9067"
#> 
#> 
#> [[9]]
#> [[9]][[1]]
#> [1] "A435"
#> 
#> 
#> [[10]]
#> [[10]][[1]]
#> [1] "C908"
#> 
#> [[10]][[2]]
#> [1] "C945"
#> 
#> 
#> [[11]]
#> [[11]][[1]]
#> [1] "E019"
#> 
#> [[11]][[2]]
#> [1] "E061"
#> 
#> 
#> [[12]]
#> [[12]][[1]]
#> [1] "G974"
#> 
#> [[12]][[2]]
#> [1] "G989"
#> 
#> 
#> [[13]]
#> [[13]][[1]]
#> [1] "K086"
#> 
#> 
#> [[14]]
#> [[14]][[1]]
#> [1] "S031"
#> 
#> 
#> [[15]]
#> [[15]][[1]]
#> [1] "V243"
#> 
#>