library(dplyr, warn.conflicts = FALSE)
library(rlang)
# no warning
warn_if_inconsistent_list(
base = exprs(DTHDOM = "DM", DTHSEQ = DMSEQ),
compare = exprs(DTHDOM = "DM", DTHSEQ = DMSEQ),
list_name = "Test"
)
# warning
warn_if_inconsistent_list(
base = exprs(DTHDOM = "DM", DTHSEQ = DMSEQ, DTHVAR = "text"),
compare = exprs(DTHDOM = "DM", DTHSEQ = DMSEQ),
list_name = "Test"
)
Run the code above in your browser using DataLab