fix bug in cropInputs.sf

PredictiveEcology · Feb 13, 2019 · 735ba6d · 735ba6d
1 parent c5a31c5
commit 735ba6d
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/postProcess.R b/R/postProcess.R
@@ -311,7 +311,9 @@ cropInputs.sf <- function(x, studyArea = NULL, rasterToMatch = NULL,
         projectExtent(cropTo, crs(x))
       } else {
         if (is(studyArea, "sf")) {
-          sf::st_transform( x = cropTo, crs = st_crs(x))
+          sf::st_transform(x = cropTo, crs = st_crs(x))
+        } else if (is(studyArea, "Spatial")) {
+          sf::st_transform(x = sf::st_as_sf(cropTo), crs = st_crs(x))
         } else {
           NULL
         }