fix probs Sentinel-1

Author: gilbertocamara

R/api_apply.R

@@ -149,8 +149,7 @@
         base_tile = feature,
         block_files = block_files,
         multicores = 1,
-        update_bbox = FALSE,
-        normalized = normalized
+        update_bbox = FALSE
     )
     # Return a feature tile
     band_tile

R/api_source_mpc.R

@@ -273,7 +273,7 @@
                                                         collection,
                                                         stac_query, ...,
                                                         tiles = NULL,
-                                                        orbit = "ascending") {
+                                                        orbit = "descending") {
 
     # set caller to show in errors
     .check_set_caller(".source_items_new.mpc_cube_sentinel-1-grd")
@@ -337,7 +337,7 @@
                                                         collection,
                                                         stac_query, ...,
                                                         tiles = NULL,
-                                                        orbit = "ascending") {
+                                                        orbit = "descending") {
     `.source_items_new.mpc_cube_sentinel-1-grd`(
         source = source,
         collection = collection,

R/api_tile.R

@@ -528,11 +528,9 @@ NULL
 #' @noRd
 #' @param tile   A tile.
 #' @param band   Band character vector.
-#' @param normalized A logical indicating if band is normalized.
-#' @param ...    Additional parameters.
 #'
 #' @return band_conf or band_cloud_conf
-.tile_band_conf <- function(tile, band, ...) {
+.tile_band_conf <- function(tile, band) {
     UseMethod(".tile_band_conf", tile)
 }
 #' @export
@@ -554,13 +552,13 @@ NULL
     return(NULL)
 }
 #' @export
-.tile_band_conf.derived_cube <- function(tile, band, ...) {
+.tile_band_conf.derived_cube <- function(tile, band) {
     .conf_derived_band(
         derived_class = .tile_derived_class(tile), band = band[[1]]
     )
 }
 #' @export
-.tile_band_conf.default <- function(tile, band, ...) {
+.tile_band_conf.default <- function(tile, band) {
     tile <- tibble::as_tibble(tile)
     tile <- .cube_find_class(tile)
     band_conf <- .tile_band_conf(tile, band)

R/sits_regularize.R

@@ -100,7 +100,7 @@ sits_regularize <- function(cube,
                             multicores = 2L,
                             progress = TRUE) {
     # Pre-conditions
-    .check_valid(cube)
+    .check_null(cube)
     UseMethod("sits_regularize", cube)
 }
 #' @rdname sits_regularize

man/sits-package.Rd

@@ -248,7 +248,7 @@ test_that("Creating cubes from BDC - LANDSAT per tile", {
     testthat::skip_if(purrr::is_null(bdc_l8_cube),
         message = "BDC cube LANDSAT-OLI-16D is not accessible"
     )
-    expect_equal(bdc_l8_cube$tile, tile)
+    usexpect_equal(bdc_l8_cube$tile, tile)
     expect_true(all(sits_bands(bdc_l8_cube) %in% bands))
     # test timeline
     timeline <- sits_timeline(bdc_l8_cube)

tests/testthat/test-cube.R

@@ -283,6 +283,7 @@ test_that("Regularizing SENTINEL-1 data",{
             collection = "SENTINEL-1-GRD",
             bands = c("VV", "VH"),
             roi = roi_sar,
+            orbit = "descending",
             start_date = "2020-06-01",
             end_date = "2020-09-28"
         )