tests/testthat/test-df-to-html-table.R

In andrew-a-hale/emailable.html.table: Emailable HTML Table

test_that("dfToHtmlTable works", {
  expect_type(dfToHtmlTable(mtcars), "character")
  expect_type(dfToHtmlTable(mtcars[0, ]), "character")
  expect_type(
    dfToHtmlTable(
      mtcars,
      colToCollapse = "carb", title = "mtcars by carb", subtitle = "collapse",
      footnotes = c("by: wrong", "note:good")
    ),
    "character"
  )
  expect_type(
    dfToHtmlTable(mtcars, highlightJson = '{"#FF5733": [1, 4, 9], "#5B33FF": [10, 20, 30]}'),
    "character"
  )
})

test_that("dfToHtmlTable with colToCollapse works", {
  expect_type(dfToHtmlTable(iris, colToCollapse = "Species"), "character")
  expect_type(dfToHtmlTable(mtcars, colToCollapse = "carb"), "character")
})