plot and view upgrades

Author: gilbertocamara

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),

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)

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)