tests/tests.R

suppressPackageStartupMessages(library(rgdal))
logo <- system.file("pictures/Rlogo.jpg", package="rgdal")[1]
x <- GDAL.open(logo)
try(getRasterData(x, band=4))
GDAL.close(x)
logoo <- paste(logo, "o", sep="")
try(GDAL.open(logoo))
try(GDAL.close(x))
try(new('GDALDriver', "GeoTIFF"))
fn <- system.file("pictures/erdas_spnad83.tif", package = "rgdal")[1]
x <- GDALinfo(fn)
try(erdas_spnad83 <- readGDAL(fn, offset=c(500, 1000), region.dim=c(400, 400), silent=TRUE))
try(erdas_spnad83 <- readGDAL(fn, region.dim=c(4000, 400), silent=TRUE))
x <- readGDAL(fn, silent=TRUE)
tf <- tempfile()
try(writeGDAL(x, tf, drivername="GTiff", type="Byte", options="INTERLEAVE=PIXIL"))
try(writeGDAL(x, tf, drivername="GeoTiff", type="Byte"))
dsn <- system.file("vectors", package = "rgdal")[1]
x <- try(ogrInfo(dsn=dsn, layer="citis"))
try(OGRSpatialRef(dsn=dsn, layer="scot_BMG"))
dsn <- system.file("vectors/test_trk2.gpx", package = "rgdal")[1]
try(readOGR(dsn=dsn, layer="trucks", verbose=FALSE))
cities <- readOGR(system.file("vectors", package = "rgdal")[1], "cities", verbose=FALSE)
td <- tempdir()
try(writeOGR(cities, td, "cities", driver="ESRI_Shapefile"))
x <- '{"type":"Point","coordinates":[-99.74,32.45]}"'
try(rgdal::readOGR(x, "OGRGeoJSON", verbose = FALSE))

Try the rgdal package in your browser

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

rgdal documentation built on June 7, 2023, 5:09 p.m.