if (FALSE) { # interactive()
# ## Get drecnos for a list a drugs. Check spelling and use WHO name,
# in lowercase
d_sel_names <- list(
nivolumab = "nivolumab",
ipilimumab = "ipilimumab",
nivo_ipi = c("nivolumab", "ipilimumab")
)
# Read mp with get_drecno(), to identify drugs without combinations
# Take the time to read the matching drugs. Did you forget a drug?
d_drecno <-
get_drecno(d_sel_names,
mp = mp_,
allow_combination = FALSE,
method = "drug_name")
d_drecno
# And DrecNos of drugs allowing for combinations
d_drecno <-
get_drecno(d_sel = d_sel_names,
mp = mp_,
allow_combination = TRUE,
method = "drug_name")
d_drecno
}
Run the code above in your browser using DataLab