tests/testthat/test_load_save_images.R

In imager: Image Processing Library Based on 'CImg'

library(imager)
library(Rcpp)

cimg.limit.openmp()

test_that("load_and_save_images",{
    im <- imfill(10,10,val=c(0,0,0))
     
    ff <- tempfile(fileext=".png")
    save.image(im,ff)
    im2 <- load.image(ff)
    unlink(ff)
    expect_equal(im,im2)
})