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