tests/testthat/test-all-viz.R

In djpr-data/djprlabourdash: DJSIR Jobs Dashboard

test_that("all viz_ functions at least produce a plot", {
  plot_funcs <- ls(getNamespace("djprlabourdash"), pattern = "viz_")

  plots <- lapply(plot_funcs, function(x) {
    #print(x)
    #get(x)()
    suppressMessages({
      do.call(x, args = list())
    })
  })

  for (p in plots) {
    testthat::expect_s3_class(p, "gg")
  }
})