Merge pull request #388 from dblodgett-usgs/master

CRS update

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: geoknife
 Type: Package
 Title: Web-Processing of Large Gridded Datasets
-Version: 1.6.3
-Date: 2019-01-29
+Version: 1.6.4
+Date: 2020-05-20
 Authors@R: c( person("Jordan", "Read", role = c("aut","cre"),
     email = "jread@usgs.gov"),
     person("Jordan", "Walker", role = c("aut"),

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"')
   }