tests/testthat/test-render.R

In renkun-ken/formattable: Create 'Formattable' Data Structures

test_that("conversion", {
  expect_s3_class(as.htmlwidget(formattable(mtcars)), c("formattable_widget", "htmlwidget"))
})

test_that("shiny", {
  skip_if_not_installed("shiny")
  # some preliminary testing for shiny functionality
  expect_s3_class(
    renderFormattable(formattable(head(mtcars))),
    c("shiny.render.function", "function")
  )
  expect_s3_class(formattableOutput(0), c("shiny.tag.list", "list"))
})

test_that("as.datatable", {
  skip_if_not_installed("DT")
  f <- formattable(mtcars, list(
    mpg = color_tile("transparent", "lightgray"),
    cyl = color_bar("gray"),
    area(col = vs:carb) ~ formatter("span", style = x ~ style(color = ifelse(x > 0, "red", NA)))))
  dt <- as.datatable(f)
  expect_s3_class(dt, c("datatables", "htmlwidget"))
})