d <- data.frame(a = c(1.3, 2, 543), b = c("ab", "cd", "abcde"), stringsAsFactors = FALSE)
test_that("export_table", {
expect_snapshot(export_table(d))
})
test_that("export_table", {
expect_snapshot(export_table(d, sep = " ", header = "*", digits = 1))
})
# snapshots have a very messy output for format = "md"
test_that("export_table", {
out <- export_table(d, format = "md")
expect_equal(out, structure(
c(
"| a| b|", "|------:|-----:|",
"| 1.30| ab|", "| 2.00| cd|",
"| 543.00| abcde|"
),
format = "pipe",
class = c("knitr_kable", "character")
), ignore_attr = TRUE)
})
d <- data.frame(a = c(1.3, 2, 543), b = c("ab", "cd", "abcde"), stringsAsFactors = FALSE)
attr(d, "table_caption") <- "Table Title"
test_that("export_table", {
out <- export_table(d, format = "md")
expect_equal(
out,
structure(
c(
"Table: Table Title", "", "| a| b|", "|------:|-----:|",
"| 1.30| ab|", "| 2.00| cd|", "| 543.00| abcde|"
),
format = "pipe",
class = c("knitr_kable", "character")
),
ignore_attr = TRUE
)
})
d <- data.frame(a = c(1.3, 2, 543), b = c("ab", "cd", "abcde"), stringsAsFactors = FALSE)
attr(d, "table_title") <- "Table Title"
test_that("export_table", {
out <- export_table(d, format = "md")
expect_equal(
out,
structure(
c(
"Table: Table Title", "", "| a| b|", "|------:|-----:|",
"| 1.30| ab|", "| 2.00| cd|", "| 543.00| abcde|"
),
format = "pipe",
class = c("knitr_kable", "character")
),
ignore_attr = TRUE
)
})
d <- data.frame(a = c(1.3, 2, 543), b = c("ab", "cd", "abcde"), stringsAsFactors = FALSE)
test_that("export_table", {
out <- export_table(d, format = "md", title = "Table Title")
expect_equal(
out,
structure(
c(
"Table: Table Title", "", "| a| b|", "|------:|-----:|",
"| 1.30| ab|", "| 2.00| cd|", "| 543.00| abcde|"
),
format = "pipe",
class = c("knitr_kable", "character")
),
ignore_attr = TRUE
)
})
d <- data.frame(a = c(1.3, 2, 543), b = c("ab", "cd", "abcde"), stringsAsFactors = FALSE)
attr(d, "table_caption") <- "Table Title"
attr(d, "table_footer") <- list("first", "second", "third")
test_that("export_table", {
out <- export_table(d, format = "md")
expect_equal(
out,
structure(
c(
"Table: Table Title", "", "| a| b|", "|------:|-----:|",
"| 1.30| ab|", "| 2.00| cd|", "| 543.00| abcde|",
"first", "second", "third"
),
format = "pipe",
class = c("knitr_kable", "character")
),
ignore_attr = TRUE
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.