library(rtables)
library(dplyr)
library(broom)
data("rbmi_test_data")
pool_obj <- rbmi_test_data
df <- tidy(pool_obj)
basic_table() %>%
split_cols_by("group", ref_group = levels(df$group)[1]) %>%
split_rows_by("visit", split_label = "Visit", label_pos = "topleft") %>%
summarize_rbmi() %>%
build_table(df)
Run the code above in your browser using DataLab