I am passing about 3000 call to the API and some of these NPIs appear to be deactivated
examples <- data.frame(names = c(1003060377,
# 1710983663, this is a deactivated NPI
1003213240,
1003116930,
1003020306,
1003292350,
1003094988,
1003164716,
1003156324,
1003219981))
result <- vector('list', nrow(examples))
for(i in seq(nrow(examples))) {
#Sleep for 1 minute after every 2 values
if(i %% 2 == 0) Sys.sleep(5)
result[[i]] <- npi::npi_search(examples$names[i])
}
x <- bind_rows(result) %>%
select(npi,addresses) %>%
unnest(addresses) %>%
filter(address_purpose == "LOCATION") %>%
select(npi,
address_1,
address_2,
city,
state,
postal_code)