All,
attached a simple (potentially ugly?) change to enable "SQLite" as a
new driver for reading GRASS GIS 7 vector data into R
(readVECT("vectmap, driver="SQLite")).
I would really appreciate to see "SQLite" support added since it seems
to be the only lossless OGR driver (e.g. unlike the default "SHAPE"
file driver).
I'll not commit this myself to r-forge since I am not sure if it
should be implemented differently.
Please verify.
thanks,
Markus
Index: pkg/rgrass7/R/vect_link.R
===================================================================
--- pkg/rgrass7/R/vect_link.R (revision 32)
+++ pkg/rgrass7/R/vect_link.R (working copy)
@@ -86,7 +86,7 @@
if (!(driver %in% sapply(ogrDGRASSs, "[", 2)))
stop(paste("Requested driver", driver, "not available in GRASS"))
fDrivers <- c("GML", "SQLite")
- dDrivers <- c("ESRI_Shapefile", "MapInfo_File")
+ dDrivers <- c("ESRI_Shapefile", "MapInfo_File", "SQLite")
if (!(gsub(" ", "_", driver) %in% c(fDrivers, dDrivers)))
stop(paste("Requested driver", driver, "not supported"))
is_dDriver <- TRUE
@@ -138,7 +138,10 @@
res <- rgdal::readOGR(dsn=RDSN, layer=LAYER,
verbose=!ignore.stderr,
pointDropZ=pointDropZ)
} else {
- res <- rgdal::readOGR(dsn=rtmpfl1, layer=shname,
verbose=!ignore.stderr)
+ if (driver == "SQLite")
+ res <- rgdal::readOGR(dsn=RDSN, layer=tolower(shname),
verbose=!ignore.stderr)
+ else
+ res <- rgdal::readOGR(dsn=rtmpfl1, layer=shname,
verbose=!ignore.stderr)
}
},
finally = {
_______________________________________________
grass-stats mailing list
grass-stats@lists.osgeo.org
http://lists.osgeo.org/mailman/listinfo/grass-stats
