From a914dfc6099be7d009ad8c4e21787b4048eacf70 Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Mon, 29 Mar 2021 13:58:07 +0200
Subject: [PATCH] feat(Utils): return a mean time step from .GetFeatModel Refs
#106
---
R/Utils.R | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/R/Utils.R b/R/Utils.R
index 8fe2b857..355db18b 100644
--- a/R/Utils.R
+++ b/R/Utils.R
@@ -54,7 +54,13 @@
daily = 1 * 24,
monthly = 28:31 * 24,
yearly = 365:366 * 24)
- res$TimeStep <- res$TimeStep * 3600
+ res$TimeStepMean <- switch(res$TimeUnit,
+ hourly = 1,
+ daily = 1 * 24,
+ monthly = 365.2425 / 12 * 24,
+ yearly = 365.2425 * 24)
+ res$TimeStep <- res$TimeStep * 3600
+ res$TimeStepMean <- res$TimeStepMean * 3600
res$Class <- c(res$TimeUnit, res$Class)
if (grepl("CemaNeige", res$NameFunMod)) {
res$Class <- c(res$Class, "CemaNeige")
--
GitLab