Merge pull request #79 from adamlilith/adam_smith

Fix bug due to change in terra's SpatExtent
rsbivand · Sep 10, 2023 · f2f8c51 · f2f8c51
2 parents 0d0b7b6 + fb5e77b
commit f2f8c51
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/initGRASS.R b/R/initGRASS.R
@@ -333,7 +333,8 @@ initGRASS <- function(gisBase = NULL, home, SG, gisDbase, addon_base, location,
             } else if (inherits(SG, "SpatRaster")) {
                 if (!requireNamespace("terra", quietly=TRUE))
                     stop("The terra package is required for the SG argument")
-                bb <- getMethod("ext", "SpatRaster")(SG)@ptr$vector
+                bb <- getMethod("ext", "SpatRaster")(SG)
+				bb <- as.vector(bb)
                 bb <- matrix(bb, 2, 2, byrow=TRUE)
                 colnames(bb) <- c("min", "max")
                 cs <- getMethod("res", "SpatRaster")(SG)