tests/testthat/test-affineGrob.r

test_that("affineGrob() works", {
    skip_if_not(getRversion() >= "4.3.0")
    skip_if_not(isTRUE(all(capabilities(c("cairo", "png")))))
    f <- tempfile(fileext = ".png")
    png(f, type = "cairo")
    grid.affine(grid::nullGrob())
    dev.off()
    expect_true(file.size(f) > 0)
    unlink(f)
})

Try the affiner package in your browser

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

affiner documentation built on April 4, 2025, 4:42 a.m.