From fd5a1f8ae30e454f88da1c8a72d735fd06d28f4e Mon Sep 17 00:00:00 2001 From: Daniel Vartanian Date: Tue, 21 Feb 2023 02:29:03 -0300 Subject: [PATCH] Fix lubridate 'roll' warning #291 --- R/filter-index.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/filter-index.R b/R/filter-index.R index f7c28f71..d1d62997 100644 --- a/R/filter-index.R +++ b/R/filter-index.R @@ -200,7 +200,7 @@ start_window.POSIXct <- function(x, y = NULL, ...) { abort_not_chr(y, class = "POSIXct") assertTime(y) y <- utctime(y, tz = "UTC") - force_tz(y, tz(x), roll = TRUE) + force_tz(y, tz(x), roll_dst = c("boundary", "post")) } } @@ -215,7 +215,7 @@ end_window.POSIXct <- function(x, y = NULL, ...) { lgl_yrmth <- nchar(y) < 9 & nchar(y) > 4 lgl_yr <- nchar(y) < 5 y <- utctime(y, tz = "UTC") - y <- force_tz(y, tz(x), roll = TRUE) + y <- force_tz(y, tz(x), roll_dst = c("boundary", "post")) if (any(lgl_date)) { y[lgl_date] <- y[lgl_date] + period(1, "day") }