fix(Utils): fix monthly and yearly time step management in .GetFeatModel

Refs #106

R/Utils.R

@@ -49,17 +49,16 @@
     }
     res$TimeStep <- switch(res$TimeUnit,
                            hourly  =       1,
-                           daily   =      24,
-                           monthly =   28:31,
-                           yearly  = 365:366)
+                           daily   =       1 * 24,
+                           monthly =   28:31 * 24,
+                           yearly  = 365:366 * 24)
     res$TimeStep <- res$TimeStep * 3600
-
     res$Class <- c(res$TimeUnit, res$Class)
     if (grepl("CemaNeige", res$NameFunMod)) {
       res$Class <- unique(c(res$Class, "CemaNeige"))
 
     }
-    if (DiffTimeStep != res$TimeStep) {
+    if (all(DiffTimeStep != res$TimeStep)) {
       stop("the time step of the model inputs must be ", res$TimeUnit, "\n")
     }
     return(res)