added exported fxn cwgr() to use internal fxn, #77

ropensci · Feb 19, 2016 · 1dc2acd · 1dc2acd
1 parent 2f6beff
commit 1dc2acd
Show file tree

Hide file tree

Showing 5 changed files with 31 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -148,6 +148,7 @@ export(as.json)
 export(as.location)
 export(bounds)
 export(centroid)
+export(cwgr)
 export(file_to_geojson)
 export(geojson_json)
 export(geojson_list)

diff --git a/R/cwgr.R b/R/cwgr.R
@@ -0,0 +1,11 @@
+#' capture writeOGR 
+#' 
+#' @export
+#' @examples \dontrun{
+#' library("rgdal")
+#' cities <- readOGR(system.file("vectors", package = "rgdal")[1], "cities")
+#' cwgr(cities[1:10,], "cities")
+#' }
+cwgr <- function(obj, layer) {
+  capturedWriteOGR(obj, object.size(obj), layer, writeOGR)
+}
diff --git a/man/cwgr.Rd b/man/cwgr.Rd
diff --git a/src/captured_write_ogr.o b/src/captured_write_ogr.o
diff --git a/src/geojsonio.so b/src/geojsonio.so