fix period handling

M3nin0 · M3nin0 · commit c82fe7b7726b · 2024-05-27T17:13:59.000-03:00
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?

Original file line number	Diff line number	Diff line change
`@@ -156,10 +156,10 @@ sits_merge.raster_cube <- function(data1, data2, ...) {`
`156`	`156`	`d2_tl <- unique(as.Date(.cube_timeline(data2)[[1]]))`
`157`	`157`
`158`	`158`	`# get intervals`
`159`		`- d1_period <- as.numeric(`
	`159`	`+ d1_period <- as.integer(`
`160`	`160`	`lubridate::as.period(lubridate::int_diff(d1_tl)), "days"`
`161`	`161`	`)`
`162`		`- d2_period <- as.numeric(`
	`162`	`+ d2_period <- as.integer(`
`163`	`163`	`lubridate::as.period(lubridate::int_diff(d2_tl)), "days"`
`164`	`164`	`)`
`165`	`165`	`# pre-condition - are periods regular?`