Validate NPIs
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] "2075517062" "2397916554" "2152431187" "2697169250" "1992863377"
#> [6] "1878858426" "1359145194" "1316180235"