# Table layout
vars <- c("AGE", "AGEGR1", "RACE", "HEIGHTBL", "WEIGHTBL", "BMIBL", "MMSETOT")
-lyt <- basic_table(title = "Protocol: CDISCPILOT01",
+lyt <- basic_table(title = "Protocol: CDISCPILOT01",
subtitles = "Population: Intent-to-Treat",
main_footer = paste0("Program: tlf_demographic.Rmd \n" , Sys.time())
) %>%
- split_cols_by("TRT01P") %>%
- add_colcounts() %>%
- analyze(vars, function(x, ...) {
+ split_cols_by("TRT01P") %>%
+ add_colcounts() %>%
+ analyze(vars, function(x, ...) {
if (is.numeric(x)) {
- in_rows(
+ in_rows(
"Mean (sd)" = c(mean(x), sd(x)),
"Median" = median(x),
"Min - Max" = range(x),
.formats = c("xx.xx (xx.xx)", "xx.xx", "xx.xx - xx.xx")
)
} else if (is.factor(x) || is.character(x)) {
- in_rows(.list = list_wrap_x(table)(x))
+ in_rows(.list = list_wrap_x(table)(x))
} else {
stop("type not supproted")
}
@@ -164,7 +164,7 @@ Step 3: Summ
var_labels = adsl_labels[vars])
# Table build
-tbl <- build_table(lyt, adsl)
+tbl <- build_table(lyt, adsl)
tbl