Merge pull request #22 from e-kotov/raster-chunking

add raster chunking

Author: e-kotov

R/backend_future.R

@@ -35,7 +35,7 @@ run_parallel_future <- function(grid_extent, cellsize_m, crs, dot_args) {
   }
 
   # --- 2. CREATE TILES (DEFINITIVE CORRECT LOGIC) ---
-  full_bbox <- sf::st_bbox(grid_extent)
+  full_bbox <- .get_bbox_from_grid_extent(grid_extent, grid_crs)
   xmin <- floor(as.numeric(full_bbox["xmin"]) / cellsize_m) * cellsize_m
   ymin <- floor(as.numeric(full_bbox["ymin"]) / cellsize_m) * cellsize_m
   xmax <- ceiling(as.numeric(full_bbox["xmax"]) / cellsize_m) * cellsize_m

R/backend_mirai.R

@@ -38,7 +38,7 @@ run_parallel_mirai <- function(grid_extent, cellsize_m, crs, dot_args) {
   }
 
   # --- 2. CREATE TILES (DEFINITIVE CORRECT LOGIC) ---
-  full_bbox <- sf::st_bbox(grid_extent)
+  full_bbox <- .get_bbox_from_grid_extent(grid_extent, grid_crs)
   xmin <- floor(as.numeric(full_bbox["xmin"]) / cellsize_m) * cellsize_m
   ymin <- floor(as.numeric(full_bbox["ymin"]) / cellsize_m) * cellsize_m
   xmax <- ceiling(as.numeric(full_bbox["xmax"]) / cellsize_m) * cellsize_m

R/backend_sequential.R

@@ -85,6 +85,17 @@ inspire_grid_from_extent_internal <- function(
     )
   }
 
+  if (output_type != "sf_points" && point_type != "centroid") {
+    warning(
+      sprintf(
+        "Argument 'point_type' ('%s') is ignored when output_type is '%s'.",
+        point_type,
+        output_type
+      ),
+      call. = FALSE
+    )
+  }
+
   # --- 3. PROCESS INPUT GEOMETRY ---
   input_sf <- NULL
   if (inherits(grid_extent, c("sf", "sfc"))) {