tests/testthat/test-gg-miss-span.R

In njtierney/ggmissing: Data Structures, Summaries, and Visualisations for Missing Data

dat <- tibble::tribble(
  ~air, ~wind, ~water, ~month,
  -99,    NA,  23,     1,
  -98,    NA,  NA,     1,
  25,     30,  21,     2,
  NA,     99,  NA,     2,
  23,     40,  NA,     2
)

gg_miss_span_plot <- gg_miss_span(dat, water, 3)

test_that("gg_miss_span works",{
  skip_on_cran()
  skip_on_ci()
  vdiffr::expect_doppelganger("gg_miss_span",
                              gg_miss_span_plot)

})

gg_miss_span_plot_group <- gg_miss_span(dat,
                                        water,
                                        3,
                                        facet = month)

test_that("gg_miss_span_group works",{
  skip_on_cran()
  skip_on_ci()
  vdiffr::expect_doppelganger("gg_miss_span_group",
                              gg_miss_span_plot_group)
})