From a129b9936e55f0b830734b08ef1a726c78df34a1 Mon Sep 17 00:00:00 2001
From: Dorchies David <david.dorchies@irstea.fr>
Date: Thu, 20 Jan 2022 16:08:11 +0100
Subject: [PATCH] refactor(CreateInputsModel): add SuppressMessages
---
R/CreateInputsModel.R | 22 ++++++++++++----------
bookdown/03-naturalisation.Rmd | 2 +-
2 files changed, 13 insertions(+), 11 deletions(-)
diff --git a/R/CreateInputsModel.R b/R/CreateInputsModel.R
index 4cec8bd..5889fcc 100644
--- a/R/CreateInputsModel.R
+++ b/R/CreateInputsModel.R
@@ -14,15 +14,17 @@ CreateInputsModel.BasinsObs <- function(BasinsObs, ...) {
Q <- BasinsObs$Q[, directInjectionNodes]
}
- airGRiwrm::CreateInputsModel(
- BasinsObs$griwrm,
- DatesR = BasinsObs$DatesR,
- Precip = BasinsObs$P,
- PotEvap = BasinsObs$E,
- Qobs = Q,
- TempMean = BasinsObs$Temp,
- ZInputs = BasinsObs$HypsoData[50, ],
- HypsoData = BasinsObs$HypsoData,
- NLayers = 5
+ suppressMessages(
+ airGRiwrm::CreateInputsModel(
+ BasinsObs$griwrm,
+ DatesR = BasinsObs$DatesR,
+ Precip = BasinsObs$P,
+ PotEvap = BasinsObs$E,
+ Qobs = Q,
+ TempMean = BasinsObs$Temp,
+ ZInputs = BasinsObs$HypsoData[50, ],
+ HypsoData = BasinsObs$HypsoData,
+ NLayers = 5
+ )
)
}
diff --git a/bookdown/03-naturalisation.Rmd b/bookdown/03-naturalisation.Rmd
index b6d0d92..f5b7888 100644
--- a/bookdown/03-naturalisation.Rmd
+++ b/bookdown/03-naturalisation.Rmd
@@ -19,7 +19,7 @@ BasinsObs <- loadBasinsObs("BasinsObs_observations_day_1958-2019.RDS", cfg = cfg
Et lançons la simulation avec les paramètres calés avec la présence des réservoirs
-```{r, message=FALSE}
+```{r}
InputsModel <- CreateInputsModel(BasinsObs)
OutputsModel <- RunModel(BasinsObs, "calibration_with_reservoirs.txt", InputsModel = InputsModel)
```
--
GitLab