# NOT RUN {
o <- options(warn = 0)
tbl <- basic_table() %>%
split_cols_by("Species") %>%
analyze("Sepal.Length") %>%
build_table(iris)
insert_rrow(tbl, rrow("Hello World"))
insert_rrow(tbl, rrow("Hello World"), at = 2)
tbl2 <- basic_table() %>%
split_cols_by("Species") %>%
split_rows_by("Species") %>%
analyze("Sepal.Length") %>%
build_table(iris)
insert_rrow(tbl2, rrow("Hello World"))
insert_rrow(tbl2, rrow("Hello World"), at = 2)
insert_rrow(tbl2, rrow("Hello World"), at = 4)
insert_rrow(tbl2, rrow("new row", 5, 6, 7))
insert_rrow(tbl2, rrow("new row", 5, 6, 7), at = 3)
options(o)
# }
Run the code above in your browser using DataLab