# install.packages("devtools")
# devtools::install_github("ssmithm/rxref")
library(rxref)
library(dplyr)Properties for a set of RxCUIs
ids <- c("860975", "860976")
get_properties(ids)Map in both directions
# NDC -> RxCUI(s)
map_ndc_to_rxcui(c("00093-1048-01", "00093-1048-10"))
# RxCUI -> NDCs (optionally filter by ACTIVE)
map_rxcui_to_ndc("860975")
map_rxcui_to_ndc("860975", status = "ACTIVE")