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

Author: gilbertocamara

R/api_cube.R

@@ -314,6 +314,10 @@ NULL
     return(cube)
 }
 #' @export
+`.cube_adjust_crs.mpc_cube_sentinel-1-rtc` <- function(cube) {
+    `.cube_adjust_crs.mpc_cube_sentinel-1-grd`(cube)
+}
+#' @export
 .cube_adjust_crs.default <- function(cube) {
     return(cube)
 }

R/sits_bbox.R

@@ -67,6 +67,12 @@ sits_bbox.raster_cube <- function(data, crs = "EPSG:4326", as_crs = NULL) {
 }
 #' @rdname sits_bbox
 #' @export
+`sits_bbox.mpc_cube_sentinel-1-rtc` <- function(data, crs = "EPSG:4326",
+                                                as_crs = NULL) {
+    `sits_bbox.mpc_cube_sentinel-1-grd`(data, crs = crs, as_crs = as_crs)
+}
+#' @rdname sits_bbox
+#' @export
 sits_bbox.tbl_df <- function(data, crs = "EPSG:4326", as_crs = NULL) {
     data <- tibble::as_tibble(data)
     if (all(.conf("sits_cube_cols") %in% colnames(data))) {

R/sits_regularize.R

@@ -241,7 +241,7 @@ sits_regularize.raster_cube <- function(cube, ...,
         roi = roi,
         tiles  = tiles,
         multicores = multicores,
-        progress = progress
+        progress = progress, ...
     )
 }
 #' @rdname sits_regularize