diff --git a/DESCRIPTION b/DESCRIPTION index e7e083d402ba9a0ea818d772009010203963f7bb..dc181d42638192dd77dc90767b99eed23fcbd08a 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,8 +1,8 @@ Package: airGR Type: Package Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling -Version: 1.0.9.20 -Date: 2017-08-11 +Version: 1.0.9.21 +Date: 2017-08-16 Authors@R: c( person("Laurent", "Coron", role = c("aut", "trl")), person("Charles", "Perrin", role = c("aut", "ths")), diff --git a/R/CreateInputsModel.R b/R/CreateInputsModel.R index 5b6c7c882129bfad0d9476c7e4c44b872a63db01..640c30e112eceb1c84b05527e969ea80d389ce15 100644 --- a/R/CreateInputsModel.R +++ b/R/CreateInputsModel.R @@ -79,6 +79,10 @@ CreateInputsModel <- function(FUN_MOD, stop(paste( "the time step of the model inputs must be ", TimeStep, " seconds \n", sep = "")) return(NULL) } + if (anyDuplicated(DatesR) != 0) { + stop("DatesR must not include duplicated values \n") + return(NULL) + } LLL <- length(DatesR) } if ("GR" %in% ObjectClass) {