Reduce Length 5

Usage

red5(x)

Arguments

x: <list> of character vectors

Value

<list> of character vectors

Examples

random_hcpcs(20) |>
   split_lengths() |>
   split_first() |>
   process_groups() |>
   red5()
#> [[1]]
#> [[1]][[1]]
#> [1] "25290"
#> 
#> [[1]][[2]]
#> [1] "27386"
#> 
#> 
#> [[2]]
#> [[2]][[1]]
#> [1] "45335"
#> 
#> 
#> [[3]]
#> [[3]][[1]]
#> [1] "62147"
#> 
#> [[3]][[2]]
#> [1] "67412"
#> 
#> 
#> [[4]]
#> [[4]][[1]]
#> [1] "80069"
#> 
#> [[4]][[2]]
#> [1] "81203"
#> 
#> [[4]][[3]]
#> [1] "84252"
#> 
#> [[4]][[4]]
#> [1] "86682"
#> 
#> [[4]][[5]]
#> [1] "88143"
#> 
#> 
#> [[5]]
#> [[5]][[1]]
#> [1] "D7511"
#> 
#> 
#> [[6]]
#> [[6]][[1]]
#> [1] "G8711"
#> 
#> [[6]][[2]]
#> [1] "G9077"
#> 
#> [[6]][[3]]
#> [1] "G9240"
#> 
#> 
#> [[7]]
#> [[7]][[1]]
#> [1] "L0486"
#> 
#> [[7]][[2]]
#> [1] "L0632"
#> 
#> [[7]][[3]]
#> [1] "L3550"
#> 
#> [[7]][[4]]
#> [1] "L4210"
#> 
#> 
#> [[8]]
#> [[8]][[1]]
#> [1] "Q4282"
#> 
#> 
#> [[9]]
#> [[9]][[1]]
#> [1] "V2214"
#> 
#>