Skip to contents

Validate NPIs (v1)

Usage

is_valid_npi(npi)

Arguments

npi

<character> Number of NPIs to generate

Value

<logical> vector

Examples

is_valid_npi(1043477615)
#> [1] TRUE

is_valid_npi(1234567891)
#> [1] FALSE

x <- random_npi_generator(100)

x[collapse::whichv(purrr::map_lgl(x, is_valid_npi), TRUE)]
#> [1] "2577021043" "1124498621" "1467776708" "2943794034" "1025701412"
#> [6] "1306015185" "1226192619"