Merge pull request #1142 from M3nin0/fix/period-handling

fix period handling in sits_merge
e-sensing · May 27, 2024 · a68212c · a68212c
2 parents 2cb6dc7 + c82fe7b
commit a68212c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/sits_merge.R b/R/sits_merge.R
@@ -156,10 +156,10 @@ sits_merge.raster_cube <- function(data1, data2, ...) {
  d2_tl <- unique(as.Date(.cube_timeline(data2)[[1]]))
 
  # get intervals
- d1_period <- as.numeric(
+ d1_period <- as.integer(
  lubridate::as.period(lubridate::int_diff(d1_tl)), "days"
  )
- d2_period <- as.numeric(
+ d2_period <- as.integer(
  lubridate::as.period(lubridate::int_diff(d2_tl)), "days"
  )
  # pre-condition - are periods regular?