do_base_split | R Documentation |
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.
do_base_split(spl, df, vals = NULL, labels = NULL, trim = FALSE)
spl |
A Split object defining a partitioning or analysis/tabulation of the data. |
df |
dataset ( |
vals |
ANY. Already calculated/known values of the split. Generally
should be left as |
labels |
character. Labels associated with |
trim |
logical(1). Should groups corresponding to empty data subsets be
removed. Defaults to |
the result of the split being applied as if it had no custom split
function, see custom_split_funs
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
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.