inst/doc/advanced-use.R

In npi: Access the U.S. National Provider Identifier Registry API

## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(npi)
library(purrr)

## ----eval = FALSE-------------------------------------------------------------
# npis <- c(1992708929, 1831192848, 1699778688, 1111111111)  # Last element doesn't exist
# 
# out <- npis %>%
#   purrr::map(., ~ npi_search(number = .)) %>%
#   dplyr::bind_rows()
# 
# npi_summarize(out)

## ----eval = FALSE-------------------------------------------------------------
# codes <- c(90210, 90211, 90212)
# 
# zip_3 <- codes %>%
#   purrr::map(., ~ npi_search(postal_code  = .)) %>%
#   dplyr::bind_rows()
# 
# npi_flatten(zip_3)

## ----eval = FALSE-------------------------------------------------------------
# npis <- c(1992708929, 1831192848, 1699778688, 1111111111)  # Last element doesn't exist
# combined_df  <- data.frame()
# for (i in npis) {
#   combined_df <- rbind(combined_df, npi_search(number = i))
# }
# 
# npi_summarize(combined_df)

## -----------------------------------------------------------------------------
saved_batches <- list(npi::npis[1:5, ], npi::npis[6:10, ])
combined <- dplyr::bind_rows(saved_batches)
npi_summarize(combined)
npi_flatten(combined, cols = c("basic", "taxonomies"))