diff --git a/R/Utils.R b/R/Utils.R index 53519abaed0773e224e4a87aa412a4bc70b4233e..9eb566f1729a0a157828cd9d2358fef9c52f7816 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) } }