From bc606a7e5d698175b31c95b4ed08a0256d494f62 Mon Sep 17 00:00:00 2001 From: Jason Everett Date: Mon, 18 May 2026 13:48:42 +1000 Subject: [PATCH 1/2] Update get_grid.R --- R/get_grid.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/get_grid.R b/R/get_grid.R index 3221857..5963df0 100644 --- a/R/get_grid.R +++ b/R/get_grid.R @@ -92,7 +92,7 @@ get_grid <- function(boundary, resolution = 5000, crs, output = "raster", touche round(digits = 4) grid_out[order(grid_xy[,"Y"], grid_xy[,"X"], decreasing = c(TRUE, FALSE)),] |> - sf::st_as_sf() + sf::st_sf(geometry = _) } } From 160be9ca79106e5a6648b7bef34b1bb9fcb87fe7 Mon Sep 17 00:00:00 2001 From: Jason Everett Date: Mon, 18 May 2026 14:57:55 +1000 Subject: [PATCH 2/2] Fix error where grid_out was calculated twice --- R/get_grid.R | 3 --- 1 file changed, 3 deletions(-) diff --git a/R/get_grid.R b/R/get_grid.R index 5963df0..20fe0c3 100644 --- a/R/get_grid.R +++ b/R/get_grid.R @@ -67,12 +67,9 @@ get_grid <- function(boundary, resolution = 5000, crs, output = "raster", touche field = 1) } else{ - grid_out <- if(output == "sf_square") sf::st_make_grid(boundary, cellsize = resolution, square = TRUE) |> sf::st_sf() else sf::st_make_grid(boundary, cellsize = resolution, square = FALSE) |> sf::st_sf() - grid_out <- sf::st_make_grid(boundary, cellsize = resolution, square = (output == "sf_square")) - if (touches){ grid_intersect <- grid_out } else{