Merge branch 'dev' of https://github.com/e-sensing/sits into dev

e-sensing · May 22, 2024 · b728aae · b728aae
2 parents abb39b5 + 0719c70
commit b728aae
Show file tree

Hide file tree

Showing 9 changed files with 136 additions and 229 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -60,7 +60,7 @@ Imports:
  sysfonts,
  slider (>= 0.2.0),
  stats,
- terra (>= 1.7-71),
+ terra (>= 1.7-65),
  tibble (>= 3.1),
  tidyr (>= 1.2.0),
  torch (>= 0.11.0),

diff --git a/NAMESPACE b/NAMESPACE
@@ -241,6 +241,7 @@ S3method(.tile_ncols,raster_cube)
 S3method(.tile_nrows,default)
 S3method(.tile_nrows,raster_cube)
 S3method(.tile_path,default)
+S3method(.tile_path,derived_cube)
 S3method(.tile_path,raster_cube)
 S3method(.tile_paths,default)
 S3method(.tile_paths,raster_cube)

diff --git a/R/api_tile.R b/R/api_tile.R
@@ -412,6 +412,17 @@ NULL
  path
 }
 #' @export
+.tile_path.derived_cube <- function(tile, band = NULL, date = NULL) {
+ tile <- .tile(tile)
+ if (.has(band)) {
+ tile <- .tile_filter_bands(tile = tile, bands = band[[1]])
+ }
+ # Get path of first asset
+ path <- .fi_path(.fi(tile))
+ # Return path
+ path
+}
+#' @export
 .tile_path.default <- function(tile, band = NULL, date = NULL) {
  tile <- tibble::as_tibble(tile)
  tile <- .cube_find_class(tile)