ard <- ard_continuous(
ADSL,
by = ARM,
variables = AGE,
statistic = ~ list(
mean = \(x) mean(x),
mean_warning = \(x) {
warning("warn1")
warning("warn2")
mean(x)
},
err_fn = \(x) stop("'tis an error")
)
)
cards:::.detect_msgs(ard, "warning", "error")
Run the code above in your browser using DataLab