# ## Find codes associated with one or more atc classes
# First, define which atc you want to use
atc_sel <-
rlang::list2(l03_j01 = c("L03AA", "J01CA"),
c09aa = c("C09AA")
)
# You can get DrecNos for you ATCs (if vigilyze is TRUE)
atc_drecno <-
get_atc_code(atc_sel = atc_sel,
mp = mp_,
thg_data = thg_,
vigilyze = TRUE)
# Or you can get MedicinalProd_Ids (if vigilyze is FALSE)
atc_mpi <-
get_atc_code(atc_sel = atc_sel,
mp = mp_,
thg_data = thg_,
vigilyze = FALSE)
Run the code above in your browser using DataLab