lyt <- basic_table() %>%
analyze("AGE", afun = mean)
build_table(lyt, DM)
lyt <- basic_table(title = "Title of table", subtitles = c("a number", "of subtitles"),
main_footer = "test footer",
prov_footer = paste("test.R program, executed at", Sys.time())) %>%
split_cols_by("ARM") %>%
analyze("AGE", mean)
build_table(lyt, DM)
Run the code above in your browser using DataLab