do_base_split {rtables} | R Documentation |
Apply basic split (for use in custom split functions)
Description
This function is intended for use inside custom split functions. It applies the current split as if it had no custom splitting function so that those default splits can be further manipulated.
Usage
do_base_split(spl, df, vals = NULL, labels = NULL, trim = FALSE)
Arguments
spl |
( |
df |
( |
vals |
( |
labels |
( |
trim |
( |
Value
The result of the split being applied as if it had no custom split function. See custom_split_funs.
Examples
uneven_splfun <- function(df, spl, vals = NULL, labels = NULL, trim = FALSE) {
ret <- do_base_split(spl, df, vals, labels, trim)
if (NROW(df) == 0) {
ret <- lapply(ret, function(x) x[1])
}
ret
}
lyt <- basic_table() %>%
split_cols_by("ARM") %>%
split_cols_by_multivar(c("USUBJID", "AESEQ", "BMRKR1"),
varlabels = c("N", "E", "BMR1"),
split_fun = uneven_splfun
) %>%
analyze_colvars(list(
USUBJID = function(x, ...) length(unique(x)),
AESEQ = max,
BMRKR1 = mean
))
tbl <- build_table(lyt, subset(ex_adae, as.numeric(ARM) <= 2))
tbl
[Package rtables version 0.6.9 Index]