tests/testthat/test-facet-sample.R

In njtierney/brolgar: Browse Over Longitudinal Data Graphically and Analytically in R

library(ggplot2)
set.seed(2019 - 07 - 23 - 1900)
gg_facet_sample <- ggplot(
  heights,
  aes(x = year, y = height_cm, group = country)
) +
  geom_line() +
  facet_sample()

set.seed(2019 - 07 - 23 - 1901)
gg_facet_sample_alt <- ggplot(
  heights,
  aes(x = year, y = height_cm, group = country)
) +
  geom_line(colour = "red") +
  facet_sample(n_per_facet = 4, n_facets = 6)

test_that("facet_sample works", {
  skip_on_cran()
  skip_on_ci()
  vdiffr::expect_doppelganger("gg_facet_sample", gg_facet_sample)
})


test_that("facet_sample works with different options", {
  skip_on_cran()
  skip_on_ci()
  vdiffr::expect_doppelganger("gg_facet_sample_alt", gg_facet_sample_alt)
})