diff --git a/R/girop.R b/R/girop.R index 9c439bf57cbe4ba5edd43c323eaa9ff20bfaf49a..7b6addec3084982630bfa3eb1be587a092a3f680 100644 --- a/R/girop.R +++ b/R/girop.R @@ -8,8 +8,8 @@ #' @export #' #' @examples -girop <- function(db, cols = c(id = "id", area = "area", params = "params"), keep_all = FALSE) { - colsDefault <- list(id = "id", area = "area", params = "params") +girop <- function(db, cols = c(id = "id", area = "area", model = "model", params = "params"), keep_all = FALSE) { + colsDefault <- list(id = "id", area = "area", model = "model", params = "params") cols <- utils::modifyList(colsDefault, as.list(cols)) if(!any(names(db) == cols$params)) { # Add missing params column in the database diff --git a/vignettes/01_First_network.Rmd b/vignettes/01_First_network.Rmd index de2b3dff5f1c153cf59112e67b2cb39611838607..0817edb2fbe9eeb55c86ba87715aed71b13344fd 100644 --- a/vignettes/01_First_network.Rmd +++ b/vignettes/01_First_network.Rmd @@ -38,6 +38,9 @@ ginetSeine <- ginet(seine_nodes, list(id = "id_sgl", down = "id_aval", length = Create the girop object ```{r} +# Specify which run-off model to use +seine_nodes$model = "RunModel_GR4J" +# Generate girop object giropSeine <- girop(seine_nodes, list(id = "id_sgl", area = "area")) ``` @@ -69,5 +72,3 @@ for(id in ginetSeine$id) { gitsSeine <- merge(gitsSeine, gits(id, l[[id]], cols = list(date = "Date", Precip = "Ptot", PotEvap = "ETP", Qobs = "Qnat"))) } ``` - -