From 26d8c48689097fec1a2da0a3271afd9f9e397977 Mon Sep 17 00:00:00 2001
From: David <david.dorchies@inrae.fr>
Date: Sun, 23 Oct 2022 18:22:44 +0200
Subject: [PATCH] fix(docs): issue with the restriction on Qobs

Refs #95
---
 R/CreateController.R    | 3 +--
 R/CreateSupervisor.R    | 3 +--
 man/CreateController.Rd | 3 +--
 man/CreateSupervisor.Rd | 3 +--
 4 files changed, 4 insertions(+), 8 deletions(-)

diff --git a/R/CreateController.R b/R/CreateController.R
index c1fe654..c443ff1 100644
--- a/R/CreateController.R
+++ b/R/CreateController.R
@@ -39,10 +39,9 @@
 #' DatesR <- BasinsObs[[1]]$DatesR
 #' PrecipTot <- cbind(sapply(BasinsObs, function(x) {x$precipitation}))
 #' PotEvapTot <- cbind(sapply(BasinsObs, function(x) {x$peti}))
-#' Qobs <- cbind(sapply(BasinsObs, function(x) {x$discharge_spec}))
 #' Precip <- ConvertMeteoSD(griwrm, PrecipTot)
 #' PotEvap <- ConvertMeteoSD(griwrm, PotEvapTot)
-#' InputsModel <- CreateInputsModel(griwrm, DatesR, Precip, PotEvap, Qobs)
+#' InputsModel <- CreateInputsModel(griwrm, DatesR, Precip, PotEvap)
 #' sv <- CreateSupervisor(InputsModel)
 #'
 #' # A controller which usually releases 0.1 m3/s and provides
diff --git a/R/CreateSupervisor.R b/R/CreateSupervisor.R
index 5aec3fb..49470cc 100644
--- a/R/CreateSupervisor.R
+++ b/R/CreateSupervisor.R
@@ -23,10 +23,9 @@
 #' DatesR <- BasinsObs[[1]]$DatesR
 #' PrecipTot <- cbind(sapply(BasinsObs, function(x) {x$precipitation}))
 #' PotEvapTot <- cbind(sapply(BasinsObs, function(x) {x$peti}))
-#' Qobs <- cbind(sapply(BasinsObs, function(x) {x$discharge_spec}))
 #' Precip <- ConvertMeteoSD(griwrm, PrecipTot)
 #' PotEvap <- ConvertMeteoSD(griwrm, PotEvapTot)
-#' InputsModel <- CreateInputsModel(griwrm, DatesR, Precip, PotEvap, Qobs)
+#' InputsModel <- CreateInputsModel(griwrm, DatesR, Precip, PotEvap)
 #' sv <- CreateSupervisor(InputsModel)
 CreateSupervisor <- function(InputsModel, TimeStep = 1L) {
   if(!inherits(InputsModel, "GRiwrmInputsModel")) {
diff --git a/man/CreateController.Rd b/man/CreateController.Rd
index 75eb2d4..c2603f5 100644
--- a/man/CreateController.Rd
+++ b/man/CreateController.Rd
@@ -55,10 +55,9 @@ BasinsObs <- Severn$BasinsObs
 DatesR <- BasinsObs[[1]]$DatesR
 PrecipTot <- cbind(sapply(BasinsObs, function(x) {x$precipitation}))
 PotEvapTot <- cbind(sapply(BasinsObs, function(x) {x$peti}))
-Qobs <- cbind(sapply(BasinsObs, function(x) {x$discharge_spec}))
 Precip <- ConvertMeteoSD(griwrm, PrecipTot)
 PotEvap <- ConvertMeteoSD(griwrm, PotEvapTot)
-InputsModel <- CreateInputsModel(griwrm, DatesR, Precip, PotEvap, Qobs)
+InputsModel <- CreateInputsModel(griwrm, DatesR, Precip, PotEvap)
 sv <- CreateSupervisor(InputsModel)
 
 # A controller which usually releases 0.1 m3/s and provides
diff --git a/man/CreateSupervisor.Rd b/man/CreateSupervisor.Rd
index e3c95b7..c04acb0 100644
--- a/man/CreateSupervisor.Rd
+++ b/man/CreateSupervisor.Rd
@@ -36,9 +36,8 @@ BasinsObs <- Severn$BasinsObs
 DatesR <- BasinsObs[[1]]$DatesR
 PrecipTot <- cbind(sapply(BasinsObs, function(x) {x$precipitation}))
 PotEvapTot <- cbind(sapply(BasinsObs, function(x) {x$peti}))
-Qobs <- cbind(sapply(BasinsObs, function(x) {x$discharge_spec}))
 Precip <- ConvertMeteoSD(griwrm, PrecipTot)
 PotEvap <- ConvertMeteoSD(griwrm, PotEvapTot)
-InputsModel <- CreateInputsModel(griwrm, DatesR, Precip, PotEvap, Qobs)
+InputsModel <- CreateInputsModel(griwrm, DatesR, Precip, PotEvap)
 sv <- CreateSupervisor(InputsModel)
 }
-- 
GitLab