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

Refs #106

refactor: remove the use of match.fun from .GetFeatModel
Refs #106
91cdf61a · Delaigue Olivier · 839d21d6 · 91cdf61a
Commit 91cdf61a authored 3 years ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 0 additions and 1 deletion
+0 -1
--- a/R/Utils.R
+++ b/R/Utils.R
@@ -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)