improve test cube

Author: gilbertocamara

NAMESPACE

@@ -16,6 +16,7 @@ S3method(.check_samples,default)
 S3method(.check_samples,sits)
 S3method(.check_samples,tbl_df)
 S3method(.cube_adjust_crs,"mpc_cube_sentinel-1-grd")
+S3method(.cube_adjust_crs,"mpc_cube_sentinel-1-rtc")
 S3method(.cube_adjust_crs,default)
 S3method(.cube_as_sf,default)
 S3method(.cube_as_sf,raster_cube)
@@ -291,6 +292,7 @@ S3method(sits_bands,raster_cube)
 S3method(sits_bands,sits)
 S3method(sits_bands,sits_model)
 S3method(sits_bbox,"mpc_cube_sentinel-1-grd")
+S3method(sits_bbox,"mpc_cube_sentinel-1-rtc")
 S3method(sits_bbox,default)
 S3method(sits_bbox,raster_cube)
 S3method(sits_bbox,sits)

man/sits_bbox.Rd

@@ -584,12 +584,12 @@ test_that("Creating Sentinel-1 GRD cubes from MPC using tiles", {
     r_obj <- .raster_open_rast(cube_s1_grd$file_info[[1]]$path[[1]])
     expect_true(terra::nrow(r_obj) == cube_s1_grd$file_info[[1]]$nrows[[1]])
 
-    output_dir <- paste0(tempdir(), "/s1-grd")
+    output_dir <- paste0(tempdir(), "/s1-reg2")
     if (!dir.exists(output_dir)) {
         dir.create(output_dir)
     }
 
-    cube_s1_20LKP <- sits_regularize(
+    cube_s1_reg <- sits_regularize(
         cube = cube_s1_grd,
         period = "P12D",
         res = 120,