refactor(CreateInputsModel): add SuppressMessages

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
+        )
     )
 }

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)
 ```