View source: R/tt_afun_utils.R
in_rows | R Documentation |
Define the cells that get placed into multiple rows in afun
.
in_rows(
...,
.list = NULL,
.names = NULL,
.labels = NULL,
.formats = NULL,
.indent_mods = NULL,
.cell_footnotes = list(NULL),
.row_footnotes = list(NULL),
.aligns = NULL,
.format_na_strs = NULL
)
... |
single row defining expressions. |
.list |
( |
.names |
( |
.labels |
( |
.formats |
( |
.indent_mods |
( |
.cell_footnotes |
( |
.row_footnotes |
( |
.aligns |
( |
.format_na_strs |
( |
A RowsVerticalSection
object (or NULL
). The details of this object should be considered an
internal implementation detail.
In post-processing, referential footnotes can also be added using row and column
paths with fnotes_at_path<-
.
analyze()
in_rows(1, 2, 3, .names = c("a", "b", "c"))
in_rows(1, 2, 3, .labels = c("a", "b", "c"))
in_rows(1, 2, 3, .names = c("a", "b", "c"), .labels = c("AAA", "BBB", "CCC"))
in_rows(.list = list(a = 1, b = 2, c = 3))
in_rows(1, 2, .list = list(3), .names = c("a", "b", "c"))
lyt <- basic_table() %>%
split_cols_by("ARM") %>%
analyze("AGE", afun = function(x) {
in_rows(
"Mean (sd)" = rcell(c(mean(x), sd(x)), format = "xx.xx (xx.xx)"),
"Range" = rcell(range(x), format = "xx.xx - xx.xx")
)
})
tbl <- build_table(lyt, ex_adsl)
tbl
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.