fix factor handling #18

tgoodbody · Jul 19, 2022 · a6a5fcf · a6a5fcf
1 parent 34cb0de
commit a6a5fcf
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/sample_strat.R b/R/sample_strat.R
@@ -147,8 +147,10 @@ sample_strat <- function(sraster,
   if(!is.null(terra::cats(sraster)[[1]])){
     message("'sraster' has factor values. Converting to allow mapping.")
 
+    #--- change suggested by R Hijmans ---#
     sraster_cats <- cats(sraster) %>% 
       as.data.frame()
+    colnames(sraster_cats)[1] <- "value"
 
   }
 
@@ -333,8 +335,6 @@ sample_strat <- function(sraster,
 
       ### --- sampling ---###
 
-      ### --- RULE 1: select only cells surrounded by cells with same strata ---###
-
       suppressWarnings(strat_mask <-
                          terra::focal(
                            strata_m,