library(dplyr, warn.conflicts = FALSE)
dm <- tribble(
~USUBJID, ~ARM,
"01-701-1015", "Placebo",
"01-701-1016", "Placebo",
)
## No warning as `AAGE` doesn't exist in `dm`
warn_if_vars_exist(dm, "AAGE")
## Issues a warning
warn_if_vars_exist(dm, "ARM")
Run the code above in your browser using DataLab