Merge pull request #1087 from rolfsimoes/dev2

Implement function to filter non-empty cube/tile

Author: rolfsimoes

R/api_cube.R

@@ -749,6 +749,18 @@ NULL
     cube <- .cube_filter_bands(cube, bands)
     return(cube)
 }
+#' @title Filter tiles that are non-empty.
+#' @noRd
+#' @param cube  A data cube.
+#' @return  A filtered data cube.
+.cube_filter_nonempty <- function(cube) {
+    UseMethod(".cube_filter_nonempty", cube)
+}
+#' @export
+.cube_filter_nonempty.raster_cube <- function(cube, roi) {
+    not_empty <- slider::slide_lgl(cube, .tile_is_nonempty)
+    cube[not_empty, ]
+}
 #' @title Returns the tile names of a data cube
 #' @noRd
 #' @param cube  A data cube.

R/api_regularize.R

@@ -165,6 +165,9 @@
         }) |>
         dplyr::bind_rows()
 
+    # Filter non-empty file info
+    cube <- .cube_filter_nonempty(cube)
+
     # Finalize customizing cube class
     cube_class <- c(cube_class[1], "sar_cube", cube_class[-1])
     .cube_set_class(cube, cube_class)

R/api_tile.R

@@ -365,6 +365,27 @@ NULL
     is_complete <- .tile_is_complete(tile)
     return(is_complete)
 }
+#' @title Check if tile's file info is not empty
+#' @name .tile_is_nonempty
+#' @keywords internal
+#' @noRd
+#' @param tile A tile.
+#' @return TRUE/FALSE
+.tile_is_nonempty <- function(tile) {
+    UseMethod(".tile_is_nonempty", tile)
+}
+#' @export
+.tile_is_nonempty.raster_cube <- function(tile) {
+    tile <- .tile(tile)
+    nrow(.fi(tile)) > 0
+}
+#' @export
+.tile_is_nonempty.default <- function(tile) {
+    tile <- tibble::as_tibble(tile)
+    tile <- .cube_find_class(tile)
+    is_nonempty <- .tile_is_nonempty(tile)
+    return(is_nonempty)
+}
 #' @title Get path of first asset from file_info.
 #' @name .tile_path
 #' @keywords internal