tests/testthat/mock-pkg/tests/testthat/test-new.R

In vdiffr: Visual Regression Testing and Graphical Diffing

library("vdiffr")

p1 <- function() plot(mtcars$disp)
p2 <- ggplot2::ggplot(mtcars, ggplot2::aes(disp)) +
  ggplot2::geom_histogram()

test_that("New plots are collected", {
  expect_doppelganger("new1", p1)
  expect_doppelganger("new2", p2)
})