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:::.cli_groups_and_variable(ard)
Run the code above in your browser using DataLab