tests/testthat/test-funnelslice-calls.R

In gmp26/funnel: Provides a function which plots mortality data in funnels or slices

context("Funnelslice runs silently")

test_that("funnelslice defaults work", {
  load("cabg.rda")
  x <- cabg
  expect_silent(
    {out <- funnelslice(x)})
  expect_null(out)
})