Commit 7a8448ca authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

v1.1.2.30 CLEAN: wrong message error fixed in CreateRunOptions #5422

Showing with 5 additions and 5 deletions
+5 -5
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.1.2.29
Version: 1.1.2.30
Date: 2019-01-18
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
......
......@@ -13,7 +13,7 @@ output:
### 1.1.2.29 Release Notes (2019-01-18)
### 1.1.2.30 Release Notes (2019-01-18)
......
......@@ -135,15 +135,15 @@ CreateRunOptions <- function(FUN_MOD, InputsModel, IndPeriod_WarmUp = NULL, IndP
}
if (!is.null(IndPeriod_WarmUp)) {
if (!is.vector(IndPeriod_WarmUp)) {
stop("IndPeriod_Run must be a vector of numeric values \n")
stop("'IndPeriod_WarmUp' must be a vector of numeric values \n")
return(NULL)
}
if (!is.numeric(IndPeriod_WarmUp)) {
stop("IndPeriod_Run must be a vector of numeric values \n")
stop("'IndPeriod_WarmUp' must be a vector of numeric values \n")
return(NULL)
}
if (storage.mode(IndPeriod_WarmUp) != "integer") {
stop("IndPeriod_Run should be of type integer \n")
stop("'IndPeriod_WarmUp' should be of type integer \n")
return(NULL)
}
if (identical(IndPeriod_WarmUp, as.integer(0)) & verbose) {
......
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