R/map_drugs_to_ingredients.R

In pwatrick/DrugRepurposingToolKit: A High-Throughput Approach Integrating Gene Expression Signatures and Clinical Data to Repurpose Drugs

#' For drug repurposing EHR validation studies, map patient drugs to ingredients
#'
#'
#' @details
#' Updated: 2021-03-27
#'
#' @param .data A tibble
#' @export

map_drugs_to_ingredients <- function(.data, ...) {

  #Map drug exposures to RxCUI ingredients
  ##Map OHDSI concept ids to RxCUIs
  .data <- inner_join(.data, DrugRepurposingToolKit::ddi_ohdsi_rxnorm, by = c("drug_concept_id" = "concept_id")) %>%
    select(person_id, rxcui, drug_exposure_start_date) %>%
    distinct()

  ##Map RxCUIs to RxCUI ingredients
  .data <- inner_join(.data, DrugRepurposingToolKit::ddi_rxcui2in, by = "rxcui")
  .data <- .data %>%
    select(person_id, rxcui_ingr, rxcui_ingr_name, drug_exposure_start_date) %>%
    distinct()
}