R/od_und_fatal_drug.r

In injuryepi/overdoser: Overdose data analysis

#' Find any unintentional drug overdose.
#'
#' Find any drug based on CDC definitions
#'
#' @param data input data
#' @param underly_col underlying column index
#'
#' @return cdc_any_drug
#' @export
#'
#' @examples to be added
od_und_fatal_drug <- function(data, underly_col) {
    data %>% mutate(und_intent_drug = od_create_diag(., expr = "Y1[0-4]", 
        colvec = underly_col))
}