fixes #387

DOI-USGS · May 19, 2020 · 7d93728 · 7d93728
1 parent d015237
commit 7d93728
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/R/06-simplegeom-obj.R b/R/06-simplegeom-obj.R
@@ -117,10 +117,9 @@ setAs("data.frame", "simplegeom", function(from) {
 
 #'@importFrom sp Polygons Polygon CRS proj4string
 setAs("SpatialPolygons", "simplegeom", function(from) {
-
-  supported.CRS <- c("+proj=longlat +datum=WGS84 +ellps=WGS84 +towgs84=0,0,0", "+proj=longlat +datum=WGS84")
-
-  if (!proj4string(from) %in% supported.CRS){
+
+  if (!(grepl("+proj=longlat", as.character(proj4string(from))) & 
+              grepl("+proj=longlat", as.character(proj4string(from))))) {
     stop('"',proj4string(from), '" not supported for "simplegeom", use "+proj=longlat +datum=WGS84"')
   }