tests/testthat/test-hello.R

In thebioengineer/png.snapshotter:

test_that("png generation works", {
  expect_snapshot_file(save_as_image({
    plot(c(1, 2, 3, 4))
  },
  device = png,
  file = "test.png"
  ))
})

test_that("jpeg generation works", {
  expect_snapshot_file(save_as_image({
    plot(c(1,2,3,4))
  },
  device = jpeg,
  file = "test.jpeg"
  ))
})


test_that("tiff generation works", {
  expect_snapshot_file(save_as_image({
    plot(c(1,2,3,4))
  },
  device = tiff,
  file = "test.tif"
  ))
})