tests/testthat/test-animateHTMLBy.R

In JamesMCollier/densityviz: Density Visualizations and the STARS Package

test_that("correct plots are produced", {
  vdiffr::expect_doppelganger("Density Plot", plotDensityByDimensionValue(GISTEMP, 1, 3, 2010, "anomaly density"))

  vdiffr::expect_doppelganger("Another Density Plot", plotDensityByDimensionValue(GISTEMP, 1, 3, 1999, "anomaly density",
                              baseline = c(1940,1970)))
  vdiffr::expect_doppelganger("Last Plot", plotDensityByDimensionValue(GISTEMP, 1, 3, 1980, "Australia anomaly density",
                              sf = rnaturalearth::ne_countries(country = "Australia", returnclass = "sf")))
})