link_ <-
link_ |>
add_drug(
d_code = ex_$d_groups_drecno,
drug_data = drug_
) |>
add_adr(
a_code = ex_$a_llt,
adr_data = adr_
)
desc_rch(.data = link_,
drug_s = "pd1",
adr_s = "a_colitis")
# You can vectorize over drugs and adrs
desc_rch(.data = link_,
adr_s = c("a_colitis", "a_pneumonitis"),
drug_s = c("pd1", "pdl1")
)
Run the code above in your browser using DataLab