fix tests

Author: gilbertocamara

R/api_file_info.R

@@ -333,7 +333,12 @@ NULL
             start_date[[1L]], end_date[[1L]]
         )
     }
-    fi[dates_in_fi, ]
+    # get the timeline
+    timeline <- .fi_timeline(fi)
+    # filter timeline by existing dates
+    timeline <- timeline[dates_in_fi]
+    # filter tiles by dates
+    dplyr::filter(fi, .data[["date"]] %in% timeline)
 }
 #' @title Filter file_info for a set of dates
 #' @noRd
@@ -347,7 +352,7 @@ NULL
         miss_dates <- paste0("'", dates[!dates_in_fi], "'", collapse = ",")
         stop("date(s) ", miss_dates, " not found")
     }
-    fi[.fi_timeline(fi) %in% dates, ]
+    dplyr::filter(fi, .data[["date"]] %in% dates)
 }
 #' @title Read a block based in a file info
 #' @noRd

tests/testthat/test-cube-mpc.R

@@ -150,7 +150,7 @@ test_that("Creating Sentinel-1 RTC cubes from MPC", {
     rast_sar <- p[[1]]$shp
     expect_equal(.raster_nlayers(rast_sar), 1)
 
-    output_dir <- paste0(tempdir(), "/s1rtc_reg")
+    output_dir <- paste0(tempdir(), "/s1rtc_reg_sar")
     if (!dir.exists(output_dir)) {
         dir.create(output_dir)
     }

tests/testthat/test-cube-terrascope.R

@@ -48,7 +48,7 @@ test_that("Creating WORLD-CEREAL-2021 cubes from TERRASCOPE",{
         },
         .default = NULL
     )
-    testthat::skip_if(purrr::is_null(class_cube),
+    testthat::skip_if(purrr::is_null(world_cereal_2021),
                       message = "TERRASCOPE is not accessible")
 
     # cut the 3 x 3 degree grid to match the MGRS tile 22LBL