Enable database connection for st_read and st_write

.travis.yml

@@ -33,11 +33,15 @@ before_install:
   - wget http://download.osgeo.org/postgis/source/postgis-2.3.2.tar.gz
   - (mv postgis* /tmp; cd /tmp; tar xzf postgis-2.3.2.tar.gz)
   - (cd /tmp/postgis-2.3.2 ; ./configure; make; sudo make install)
+
+  # activate liblwgeom by:
+  - sudo ldconfig
   # create postgis databases:
   - sudo service postgresql restart
   - createdb postgis
   - psql -d postgis -c "CREATE EXTENSION postgis;"
   - psql -d postgis -c "GRANT CREATE ON DATABASE postgis TO travis"
+  - psql -d postgis -c "GRANT ALL PRIVILEGES ON ALL TABLES IN SCHEMA public TO travis"
   - createdb empty
   - psql -d empty -c "CREATE EXTENSION postgis;"
 

DESCRIPTION

@@ -23,6 +23,7 @@ Imports:
 	grDevices,
 	grid,
 	Rcpp,
+	RPostgreSQL,
 	DBI (>= 0.5),
 	units (>= 0.4-6),
 	classInt,
@@ -38,7 +39,6 @@ Suggests:
 	tmap,
 	maptools,
 	RSQLite,
-	RPostgreSQL,
 	tibble (>= 1.4.1),
 	pillar,
 	rlang,
@@ -94,4 +94,5 @@ Collate:
 	spatstat.R
 	stars.R
 	gdal_utils.R
+	deprecated.R
 RoxygenNote: 6.0.1

NAMESPACE

@@ -178,6 +178,8 @@ S3method(st_polygonize,sfc)
 S3method(st_polygonize,sfg)
 S3method(st_precision,sf)
 S3method(st_precision,sfc)
+S3method(st_read,DBIObject)
+S3method(st_read,PostgreSQLConnection)
 S3method(st_read,default)
 S3method(st_segmentize,sf)
 S3method(st_segmentize,sfc)
@@ -362,7 +364,11 @@ export(ungroup.sf)
 export(unite.sf)
 export(unnest.sf)
 export(write_sf)
+exportMethods(dbDataType)
+exportMethods(dbWriteTable)
 import(graphics)
+importClassesFrom(DBI,DBIObject)
+importClassesFrom(RPostgreSQL,PostgreSQLConnection)
 importFrom(DBI,dbConnect)
 importFrom(DBI,dbDisconnect)
 importFrom(DBI,dbExecute)
@@ -399,4 +405,6 @@ importFrom(utils,head)
 importFrom(utils,object.size)
 importFrom(utils,str)
 importFrom(utils,tail)
+importMethodsFrom(DBI,dbDataType)
+importMethodsFrom(DBI,dbWriteTable)
 useDynLib(sf)

R/crs.R

@@ -34,6 +34,10 @@ Ops.crs <- function(e1, e2) {
 #' @name st_crs
 #' @param x numeric, character, or object of class \link{sf} or \link{sfc}
 #' @param ... ignored
+#' @param valid default TRUE. This allows to create crs without checking against
+#' the local proj4 database. It can be used to synchronize crs with a remote
+#' database, but avoid it as much as possible.
+#' @param proj4text character. Must be used in conjunction with \code{valid = FALSE}.
 #' @export
 #' @return If \code{x} is numeric, return \code{crs} object for SRID \code{x}; if \code{x} is character, return \code{crs} object for proj4string \code{x}; if \code{wkt} is given, return \code{crs} object for well-known-text representation \code{wkt}; if \code{x} is of class \code{sf} or \code{sfc}, return its \code{crs} object.
 #' @details The *crs functions create, get, set or replace the \code{crs} attribute of a simple feature geometry
@@ -54,7 +58,14 @@ st_crs.sf = function(x, ...) st_crs(st_geometry(x), ...)
 
 #' @name st_crs
 #' @export
-st_crs.numeric = function(x, ...) make_crs(x)
+st_crs.numeric = function(x, proj4text = "", valid = TRUE, ...) {
+    if (!valid)
+        return(structure(list(epsg = x, proj4string = proj4text), class = "crs"))
+    if (proj4text != "")
+        warning("`proj4text` is not used to validate crs. Remove `proj4text` ",
+                "argument or set `valid = FALSE` to stop warning.")
+    make_crs(x)
+}
 
 #' @name st_crs
 #' @export
@@ -69,7 +80,7 @@ st_crs.character = function(x, ..., wkt) {
 #' @name st_crs
 #' @param parameters logical; \code{FALSE} by default; if \code{TRUE} return a list of coordinate reference system parameters, with named elements \code{SemiMajor}, \code{InvFlattening}, \code{units_gdal}, \code{IsVertical}, \code{WktPretty}, and \code{Wkt}
 #' @export
-st_crs.sfc = function(x, ..., parameters = FALSE) { 
+st_crs.sfc = function(x, ..., parameters = FALSE) {
 	crs = attr(x, "crs")
 	if (parameters) {
 		if (is.na(crs))
@@ -332,7 +343,7 @@ print.crs = function(x, ...) {
        cat("  EPSG:", x$epsg, "\n")
     if (is.na(x$proj4string))
       stop("  invalid crs: please report an issue") # nocov
-    else 
+    else
       cat("  proj4string: \"", x$proj4string, "\"\n", sep = "")
   }
 }