test_that("simple table body generation", {
expect_equal(
topic_long_table_body(data.frame(A=1), topic_cols=1),
"\\TopicLine \\Topic[1] \\\\"
)
expect_equal(
topic_long_table_body(data.frame(A=1, B=2), topic_cols=1),
"\\TopicLine \\Topic[1] & 2 \\\\"
)
expect_equal(
topic_long_table_body(data.frame(A=1:2, B=3:4), topic_cols=1),
paste(
"\\TopicLine \\Topic[1] & 3 \\\\\\pagebreak[3]",
"\\TopicLine \\Topic[2] & 4 \\\\",
sep = "\n"
)
)
})
test_that("body arguments are respected", {
expect_equal(
topic_long_table_body(data.frame(A=1), topic_cols=1, row_border="foo"),
"foo \\Topic[1] \\\\"
)
expect_equal(
topic_long_table_body(data.frame(A=1:2, B=3:4), topic_cols=1, row_border="foo"),
paste(
"foo \\Topic[1] & 3 \\\\\\pagebreak[3]",
"foo \\Topic[2] & 4 \\\\",
sep = "\n"
)
)
expect_equal(
topic_long_table_body(verbatim = "foo"),
"foo"
)
expect_error(
topic_long_table_body(verbatim = 1),
"`verbatim` must be a character scalar."
)
expect_error(
topic_long_table_body(verbatim = c("a", "b")),
"`verbatim` must be a character scalar."
)
})
test_that("topic_long_table_body latex_clean", {
expect_equal(
topic_long_table_body(x = matrix(1:4, nrow = 2), topic_cols = 1),
topic_long_table_body(x = data.frame(A=1:2, B=3:4), topic_cols = 1)
)
})
test_that("topic_long_table_body expected errors", {
expect_error(
topic_long_table_body(x = "A", topic_cols = 1),
"x must be a data.frame"
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.