# NOT RUN {
library(dplyr)
iris2 <- iris %>%
group_by(Species) %>%
mutate(group = as.factor(rep_len(c("a", "b"), length.out = n()))) %>%
ungroup()
l <- basic_table() %>%
split_cols_by("Species") %>%
split_cols_by("group") %>%
analyze(c("Sepal.Length", "Petal.Width"), afun = list_wrap_x(summary) , format = "xx.xx")
tbl <- build_table(l, iris2)
tbl
row_paths(tbl)
table_structure(tbl)
table_structure(tbl, detail = "row")
# }
Run the code above in your browser using DataLab