changed size check to a warning, but only for lakes smaller than a 3x…

…3 window of the set resolution.

.gitignore

@@ -7,3 +7,4 @@ inst/doc
 inst/extdata
 R/gam_depth.R
 bugs
+raster_maxlength

NEWS.md

@@ -5,6 +5,7 @@ lakemorpho 1.3.3 (2024-XX-xx)
 
 ## Updates
 - Added fasterize for rasterizing lakes
+- lakeSurroundTopo: size check for small lakes assumed 30 meter pixels and returned NULL.  Changed this to use reso to determine size check, still creates lake morpho object but with a warning.
 
 lakemorpho 1.3.2 (2023-09-15)
 ==========================

R/lakeSurroundTopo.R

@@ -42,8 +42,8 @@ lakeSurroundTopo <- function(inLake, inElev = NULL, inCatch = NULL,
   #slot(inLake, "polygons") <- lapply(slot(inLake, "polygons"), checkPolygonsHoles)
   # Ignores lakes smaller that 3X3 30 m pixels
 
-  if (as.numeric(sf::st_area(inLake)) <= 8100) {
-      return(NULL)
+  if (as.numeric(sf::st_area(inLake)) <= (reso*3)^2) {
+      warning("The input lake polygon is very small and resulting metrics may not make sense.")
   }
   tmpBuff <- sf::st_buffer(inLake, dist = 180)
   nc <- round((extent(tmpBuff)@xmax - extent(tmpBuff)@xmin)/reso)