From 245fff45cce078e40057ed72d7b276225a1131b0 Mon Sep 17 00:00:00 2001 From: Brad Hill Date: Wed, 10 May 2023 21:18:00 +0000 Subject: [PATCH] replace as_date with as_datetime --- R/get-tk_get_timeseries.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/get-tk_get_timeseries.R b/R/get-tk_get_timeseries.R index 22a4ea49..519902c8 100644 --- a/R/get-tk_get_timeseries.R +++ b/R/get-tk_get_timeseries.R @@ -119,7 +119,7 @@ get_timeseries_signature_date <- function(idx) { mday = lubridate::mday(index) %>% as.integer(), qday = lubridate::qday(lubridate::as_date(index)) %>% as.integer(), yday = lubridate::yday(index) %>% as.integer(), - mweek = stringi::stri_datetime_fields(lubridate::as_date(index))$WeekOfMonth %>% as.integer(), + mweek = stringi::stri_datetime_fields(lubridate::as_datetime(index))$WeekOfMonth %>% as.integer(), week = lubridate::week(index) %>% as.integer(), week.iso = lubridate::isoweek(index) %>% as.integer(), week2 = as.integer(week %% 2),