diff --git a/R/get_grid.R b/R/get_grid.R index 3221857..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{ @@ -92,7 +89,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 = _) } }