refactor: check DatesR before using .GetFeatModel CreateInputsModel

Refs #106

R/CreateInputsModel.R

@@ -10,29 +10,29 @@ CreateInputsModel <- function(FUN_MOD,
 
   ObjectClass <- NULL
 
-  FUN_MOD <- match.fun(FUN_MOD)
+  ## check DatesR
+  if (is.null(DatesR)) {
+    stop("'DatesR' is missing")
+  }
+  if (!"POSIXlt" %in% class(DatesR) & !"POSIXct" %in% class(DatesR)) {
+    stop("'DatesR' must be defined as 'POSIXlt' or 'POSIXct'")
+  }
+  if (!"POSIXlt" %in% class(DatesR)) {
+    DatesR <- as.POSIXlt(DatesR)
+  }
+  if (any(duplicated(DatesR))) {
+    stop("'DatesR' must not include duplicated values")
+  }
+  LLL <- length(DatesR)
 
-  ##check_FUN_MOD
+  ## check FUN_MOD
+  FUN_MOD <- match.fun(FUN_MOD)
   FeatFUN_MOD <- .GetFeatModel(FUN_MOD = FUN_MOD, DatesR = DatesR)
   ObjectClass <- FeatFUN_MOD$Class
 
 
   ##check_arguments
-  if ("GR" %in% ObjectClass | "CemaNeige" %in% ObjectClass) {
-    if (is.null(DatesR)) {
-      stop("'DatesR' is missing")
-    }
-    if (!"POSIXlt" %in% class(DatesR) & !"POSIXct" %in% class(DatesR)) {
-      stop("'DatesR' must be defined as 'POSIXlt' or 'POSIXct'")
-    }
-    if (!"POSIXlt" %in% class(DatesR)) {
-      DatesR <- as.POSIXlt(DatesR)
-    }
-    if (any(duplicated(DatesR))) {
-      stop("'DatesR' must not include duplicated values")
-    }
-    LLL <- length(DatesR)
-  }
+
   if ("GR" %in% ObjectClass) {
     if (is.null(Precip)) {
       stop("Precip is missing")