tests/testthat/test-autoplot-table-mosaic.R

test_that("autoplot_table_mosaic() doesn't fail", {
  x <- as.table(
    matrix(
      c(1, 2, 3, 4),
      nrow = 2,
      dimnames = list(a = list(TRUE, FALSE), b = list(TRUE, FALSE))
    )
  )

  expect_error(autoplot_table_mosaic(x), NA)
})
jmbarbone/jordanExtra documentation built on Aug. 4, 2023, 5:37 p.m.