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),