Generate random NPIs

Usage

random_npi_generator(n)

Arguments

n: <integer> Number of NPIs to generate

Value

<character> vector of n NPIs

Examples

random_npi_generator(10)
#>  [1] "2170368841" "1874265170" "1552509768" "2003544250" "1527085509"
#>  [6] "2216454832" "2024138973" "2853275471" "1309359607" "2041481803"

x <- random_npi_generator(100)

x[collapse::whichv(purrr::map_lgl(x, is_valid_npi), TRUE)]
#>  [1] "2696584988" "2003973429" "2268628684" "1155645140" "1572336828"
#>  [6] "2107066294" "1594015368" "1920720384" "2572500041" "2968081853"
#> [11] "1147592673" "2276512557"