tests/testthat/test-ppm.R

test_that("agg_ppm generates file", {
  file <- tempfile(fileext = '.ppm')
  agg_ppm(file)
  plot(1:10, 1:10)
  dev.off()
  
  expect_gt(file.info(file)$size, 0)
  
  unlink(file)
})

Try the ragg package in your browser

Any scripts or data that you put into this service are public.

ragg documentation built on Oct. 10, 2023, 9:07 a.m.