From 86626f4c7fdf3bb53ad3d05495a4eaa0b63f9ebf Mon Sep 17 00:00:00 2001 From: vagudets Date: Fri, 16 Aug 2024 14:41:41 +0200 Subject: [PATCH] Bugfix: transform subseasonal sdate into POSIXt object when dividing recipe --- tools/divide_recipe.R | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/tools/divide_recipe.R b/tools/divide_recipe.R index ceb696f4..a9218ab6 100644 --- a/tools/divide_recipe.R +++ b/tools/divide_recipe.R @@ -171,10 +171,13 @@ divide_recipe <- function(recipe) { if (nchar(recipe$Analysis$Time$sdate[sdate]) == 4) { sdate_weekday <- DAYS_OF_WEEK[[tolower(recipe$Analysis$Time$week_day)]] days <- as.POSIXlt(paste(recipe$Analysis$Time$sdate[sdate], - 1:366, sep="-"), format="%Y-%j") + 1:366, sep = "-"), format = "%Y-%j") day_of_the_week_ini <- days[days$wday == sdate_weekday] } else if (nchar(recipe$Analysis$Time$sdate[sdate]) == 8) { - day_of_the_week_ini <- recipe$Analysis$Time$sdate[sdate] + day_of_the_week_ini <- as.POSIXct(as.character(recipe$Analysis$Time$sdate[sdate]), + format = "%Y%m%d", + origin = '1970-01-01', + tz = 'UTC') } else { stop("what other cases can exist in subaseasonal?") } -- GitLab