inst/tinytest/test_wkt_grd.R

fl <- system.file("external/test.grd", package="raster")
tst <- raster::raster(fl)
raster::crs(tst) <- raster::crs("EPSG:28992")
tf <- tempfile(fileext=".grd")
raster::writeRaster(tst, tf)
tst1 <- raster::raster(tf)
expect_identical(raster::wkt(tst), raster::wkt(tst1))
rspatial/raster documentation built on Oct. 12, 2024, 10:49 a.m.