fix(Utils): change the CemaNeige class in the FeatModelsGR table

Refs #106

R/Utils.R

@@ -57,9 +57,9 @@
     res$TimeStep <- res$TimeStep * 3600
     res$Class <- c(res$TimeUnit, res$Class)
     if (grepl("CemaNeige", res$NameFunMod)) {
-      res$Class <- unique(c(res$Class, "CemaNeige"))
-
+      res$Class <- c(res$Class, "CemaNeige")
     }
+    res$Class <- res$Class[!is.na(res$Class)]
     if (!is.null(DatesR)) {
       if (all(DiffTimeStep != res$TimeStep)) {
         stop("the time step of the model inputs must be ", res$TimeUnit, "\n")

inst/modelsFeatures/FeatModelsGR.csv

@@ -6,7 +6,7 @@ GR5J;GR5J;5;daily;NA;GR;airGR
 GR6J;GR6J;6;daily;NA;GR;airGR
 GR4H;GR4H;4;hourly;NA;GR;airGR
 GR5H;GR5H;5;hourly;NA;GR;airGR
-CemaNeige;CemaNeige;2;NA;NA;CemaNeige;airGR
+CemaNeige;CemaNeige;2;NA;NA;NA;airGR
 CemaNeigeGR4J;CemaNeigeGR4J;6;daily;NA;GR;airGR
 CemaNeigeGR5J;CemaNeigeGR5J;7;daily;NA;GR;airGR
 CemaNeigeGR6J;CemaNeigeGR6J;8;daily;NA;GR;airGR