Remove Redundant Characters

Usage

remove_redundant(x)

Arguments

x: <list> of vectors

Value

<list> of vectors

Examples

random_hcpcs(15) |>
   split_lengths() |>
   remove_redundant()
#> $x1
#> [1] "6" "8" "Q"
#> 
#> $x2
#>  [1] "25" "29" "32" "57" "77" "A6" "D7" "L3" "S5" "V2"
#> 
#> $x3
#>  [1] "031" "040" "046" "246" "475" "923" "925" "951" "E10" "G00" "G40" "H00"
#> 
#> $x4
#>  [1] "0040" "0355" "0560" "2721" "3555" "9637" "A012" "A955" "B421" "L557"
#> [11] "S402" "V516"
#> 
#> $x5
#>  [1] "11044" "15572" "3497F" "47420" "51101" "58805" "92065" "A4461" "C9086"
#> [10] "E1831" "G8562" "G9944" "L4045"
#>