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) })
Generated by dwww version 1.15 on Sat Jun 15 23:04:16 CEST 2024.