Commit 91cdf61a authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

refactor: remove the use of match.fun from .GetFeatModel

Refs #106
parent 839d21d6
Pipeline #21789 failed with stages
in 1 minute and 15 seconds
......@@ -27,7 +27,6 @@
## function to extract model features
.GetFeatModel <- function(FUN_MOD, DatesR) {
FeatMod <- .FeatModels()
FUN_MOD <- match.fun(FUN_MOD)
NameFunMod <- ifelse(test = FeatMod$Pkg %in% "airGR",
yes = paste("RunModel", FeatMod$NameMod, sep = "_"),
no = FeatMod$NameMod)
......
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