Commit 90b8fbad authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

v1.2.9.34 CLEAN: argument names added when FUN_CRIT is called in ErrorCrit

Showing with 8 additions and 5 deletions
+8 -5
Package: airGR Package: airGR
Type: Package Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.2.9.33 Version: 1.2.9.34
Date: 2019-03-21 Date: 2019-03-21
Authors@R: c( Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")), person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
......
...@@ -13,7 +13,7 @@ output: ...@@ -13,7 +13,7 @@ output:
### 1.2.9.33 Release Notes (2019-03-21) ### 1.2.9.34 Release Notes (2019-03-21)
......
...@@ -19,8 +19,8 @@ ErrorCrit <- function(InputsCrit, OutputsModel, FUN_CRIT, warnings = TRUE, verbo ...@@ -19,8 +19,8 @@ ErrorCrit <- function(InputsCrit, OutputsModel, FUN_CRIT, warnings = TRUE, verbo
## ----- Single criterion ## ----- Single criterion
if (inherits(InputsCrit, "Single")) { if (inherits(InputsCrit, "Single")) {
OutputsCrit <- InputsCrit$FUN_CRIT(InputsCrit, OutputsCrit <- InputsCrit$FUN_CRIT(InputsCrit = InputsCrit,
OutputsModel, OutputsModel = OutputsModel,
warnings = warnings, warnings = warnings,
verbose = verbose) verbose = verbose)
} }
...@@ -30,7 +30,10 @@ ErrorCrit <- function(InputsCrit, OutputsModel, FUN_CRIT, warnings = TRUE, verbo ...@@ -30,7 +30,10 @@ ErrorCrit <- function(InputsCrit, OutputsModel, FUN_CRIT, warnings = TRUE, verbo
if (inherits(InputsCrit, "Multi") | inherits(InputsCrit, "Compo")) { if (inherits(InputsCrit, "Multi") | inherits(InputsCrit, "Compo")) {
listOutputsCrit <- lapply(InputsCrit, FUN = function(iInputsCrit) { listOutputsCrit <- lapply(InputsCrit, FUN = function(iInputsCrit) {
iInputsCrit$FUN_CRIT(iInputsCrit, OutputsModel, warnings = warnings, verbose = verbose) iInputsCrit$FUN_CRIT(InputsCrit = iInputsCrit,
OutputsModel = OutputsModel,
warnings = warnings,
verbose = verbose)
}) })
listValCrit <- sapply(listOutputsCrit, function(x) x[["CritValue"]]) listValCrit <- sapply(listOutputsCrit, function(x) x[["CritValue"]])
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment