Commit 30f0005b authored by unknown's avatar unknown
Browse files

v0.1.1.4 .TypeModelGR now returns the TimeUnit in english

parent a77758fb
......@@ -16,7 +16,8 @@
}
StrName <- "(.*)(GR)(\\d{1})(\\D{1})"
TimeUnit <- gsub(StrName, "\\4", x)
TimeUnitFR <- gsub(StrName, "\\4", x)
TimeUnit <- switch(TimeUnitFR, H = "hour", J = "day", M = "month", A = "year")
NbParam <- gsub(StrName, "\\3", x)
isCN <- grepl("CemaNeige" , x)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment