#31 hasValues fix

tgoodbody · Mar 7, 2023 · b07e587 · b07e587
1 parent 3c73afe
commit b07e587
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/NEWS.md b/NEWS.md
@@ -6,6 +6,8 @@
 
 `enhanced` - Sampling Vignette - Added content about `sample_existing()`
 
+`fixed` - `strat_map()` - Fixed improper use of `terra::hasValues`. From Robert Hijmans #31
+
 # sgsR 1.4.1
 
 `fixed` - `sample_ahels()` - gave an erroneous error when `matrices` was provided and `nQuant` did not match. Changed to allow only `matrices` to be provided.

diff --git a/R/strat_map.R b/R/strat_map.R
@@ -116,7 +116,7 @@ strat_map <- function(sraster,
   }
 
   #--- error handling for raster inputs ---#
-  if (isFALSE(sraster@ptr$hasValues)) {
+  if (isFALSE(terra::hasValues(sraster))) {
     stop("'sraster' has no values.", call. = FALSE)
   }