context("raster")
test_that("raster_str", {
r <- as.raster(matrix(hcl(0, 80, seq(40, 80, 10)), nrow = 5, ncol = 4))
code <- raster_str(r, width = 50, height = 50)
expect_gt(nchar(x = code), 50)
})
test_that("raster_write", {
r <- as.raster(matrix(hcl(0, 80, seq(40, 80, 10)), nrow = 5, ncol = 4))
filename <- tempfile(fileext = ".png")
raster_write(r, path = filename, width = 50, height = 50)
expect_true(file.exists(filename))
})
Generated by dwww version 1.15 on Fri Jun 28 09:10:11 CEST 2024.