improve creation of mask from raster data

HannaMeyer · Oct 18, 2024 · 2a154f3 · 2a154f3
1 parent 5804c4e
commit 2a154f3
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/geodist.R b/R/geodist.R
@@ -628,7 +628,8 @@ sampleFromArea <- function(modeldomain, samplesize, type,variables,sampling, cat
     }
     #create mask to sample from:
     template <- modeldomain[[1]]
-    terra::values(template)[!is.na(terra::values(template))] <-1
+    #terra::values(template)[!is.na(terra::values(template))] <-1
+    template <- terra::classify(template, cbind(-Inf, Inf, 1), right=FALSE)
     modeldomainextent <- terra::as.polygons(template) |>
       sf::st_as_sf() |>
       sf::st_geometry()