# NOT RUN {
lyt <- basic_table() %>%
split_rows_by("COUNTRY", split_fun = keep_split_levels(c("CHN", "USA"))) %>%
analyze("AGE")
tab <- build_table(lyt, DM)
tab2 <- insert_row_at_path(tab, c("COUNTRY", "CHN", "AGE", "Mean"),
rrow("new row", 555))
tab2
tab2 <- insert_row_at_path(tab2, c("COUNTRY", "CHN", "AGE", "Mean"),
rrow("new row redux", 888),
after = TRUE)
tab2
# }
Run the code above in your browser using DataLab