tests/testthat/test-trim_fig.R

skip("Depends on rnaturalearth data")

p <- quick_map()

test_that("trim_fig works", {
  create_dirs()
  save_plot(p)
  trim_fig("output/figures/p.png")
  expect_true(file.exists("output/figures/trim/p.png"))
  unlink(c("data", "output", "R"), recursive = TRUE)
})

Try the misc package in your browser

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

misc documentation built on April 8, 2026, 9:10 a.m.