v1.0.9.21 CreateInputsModel now stops when DatesR contains duplicated values

DESCRIPTION

 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")),

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) {