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))

Try the raster package in your browser

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

raster documentation built on Oct. 14, 2023, 5:07 p.m.