Added occs.sel to the return() in the poccs_selectOccs function. …

…Without this, the function returns NULL in some circumstances in the Rmd code generated from a session.
wallaceEcoMod · Mar 12, 2024 · b4ea6c4 · b4ea6c4
1 parent 1327e1f
commit b4ea6c4
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/poccs_selectOccs.R b/R/poccs_selectOccs.R
@@ -1,6 +1,6 @@
 # Wallace EcoMod: a flexible platform for reproducible modeling of
 # species niches and distributions.
-# 
+#
 # poccs_selectOccs.R
 # File author: Wallace EcoMod Dev Team. 2023.
 # --------------------------------------------------------------------------
@@ -98,7 +98,7 @@ poccs_selectOccs <- function(occs, polySelXY, polySelID = 1, logger = NULL,
         hlSpp(spN),
         "Your polygon is selecting all occurrences. None will be removed.")
       occs.sel <- occs
-      return()
+      return(occs.sel)
     }
     occs.sel <- occs[-ptRemIndex,]