Merge pull request #971 from OldLipe/dev2

Fix bug in selecting derived cubes
e-sensing · May 16, 2023 · c73a552 · c73a552
2 parents c59b5f5 + d670f7c
commit c73a552
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/R/api_file_info.R b/R/api_file_info.R
@@ -204,7 +204,12 @@ NULL
 }
 
 .fi_during <- function(fi, start_date, end_date) {
- .between(.fi_timeline(fi), start_date[[1]], end_date[[1]])
+ fi_tl <- .fi_timeline(fi)
+ .fi_switch(
+ fi = fi,
+ eo_cube = .between(fi_tl, start_date[[1]], end_date[[1]]),
+ derived_cube = all(.between(fi_tl, start_date[[1]], end_date[[1]]))
+ )
 }
 
 .fi_filter_interval <- function(fi, start_date, end_date) {

diff --git a/R/sits_select.R b/R/sits_select.R
@@ -90,6 +90,9 @@ sits_select.raster_cube <- function(data,
  # Filter dates
  if (!is.null(start_date) || !is.null(end_date)) {
  .check_dates_parameter(c(start_date, end_date))
+ start_date <- .default(start_date, .cube_start_date(data))
+ end_date <- .default(end_date, .cube_end_date(data))
+
  data <- .cube_filter_interval(
  cube = data, start_date = start_date, end_date = end_date
  )