From 91cdf61a6c2d009222f4d8723fcb0c83e44bc8a1 Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Mon, 29 Mar 2021 11:18:51 +0200
Subject: [PATCH] refactor: remove the use of match.fun from .GetFeatModel Refs
#106
---
R/Utils.R | 1 -
1 file changed, 1 deletion(-)
diff --git a/R/Utils.R b/R/Utils.R
index db0c4839..2351a168 100644
--- 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)
--
GitLab