From 797bcca29d08d6849629adea4b10b95e3cc5f81c Mon Sep 17 00:00:00 2001
From: Dorchies David <david.dorchies@inrae.fr>
Date: Tue, 22 Jun 2021 15:10:46 +0200
Subject: [PATCH] fix: correctly treat CemaNeige model as a CodeModHydro item
- in former version CodeModHydro was empty for CemaNeige model
Refs #111
---
R/Utils.R | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/R/Utils.R b/R/Utils.R
index 53519aba..9eb566f1 100644
--- a/R/Utils.R
+++ b/R/Utils.R
@@ -62,8 +62,10 @@
res$TimeStep <- res$TimeStep * 3600
res$TimeStepMean <- as.integer(res$TimeStepMean * 3600)
res$Class <- c(res$TimeUnit, res$Class)
+ res$CodeModHydro <- res$CodeMod
if (grepl("CemaNeige", res$NameFunMod)) {
res$Class <- c(res$Class, "CemaNeige")
+ res$CodeModHydro <- gsub("CemaNeige", "", res$CodeMod)
}
res$Class <- res$Class[!is.na(res$Class)]
if (!is.null(DatesR)) {
@@ -71,7 +73,6 @@
stop("the time step of the model inputs must be ", res$TimeUnit)
}
}
- res$CodeModHydro <- gsub("CemaNeige", "", res$CodeMod)
return(res)
}
}
--
GitLab