-
Notifications
You must be signed in to change notification settings - Fork 3
/
02_solution.R
28 lines (22 loc) · 677 Bytes
/
02_solution.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
# TODO:
# - Use variable labels
# - row gaps
# -
library(rtables)
vars <- names(ex_adsl)[!grepl("(ID|DT|ARM|study_duration)", names(ex_adsl))]
lyt <- basic_table(
title = "Demographic Table all Patients",
subtitles = c(
"Protocol: ABC, Cutoff Date: June 5, 2022",
"Note the data is synthetic."
),
main_footer = "Data has been generated with the random.cdisc.data package.",
prov_footer = c(
"File: rtables_rinpharma2022/exercise_02.R"
),
show_colcounts = TRUE
) |>
split_cols_by("ARM", split_fun = add_overall_level(first = FALSE, label = "All Patients")) |>
analyze(vars, section_div = " ")
tbl <- build_table(lyt, ex_adsl)
print(tbl)