From ccc9b3962ef46861161df3c851a61cad2049ccae Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Tue, 27 Apr 2021 06:27:33 +0200
Subject: [PATCH] fix(Utils): use 'match.fun' instead of 'get' to get the body
of a modelling function Refs #119
---
R/Utils.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/Utils.R b/R/Utils.R
index dadf299f..6aa1f33f 100644
--- a/R/Utils.R
+++ b/R/Utils.R
@@ -30,7 +30,7 @@
NameFunMod <- ifelse(test = FeatMod$Pkg %in% "airGR",
yes = paste("RunModel", FeatMod$NameMod, sep = "_"),
no = FeatMod$NameMod)
- FunMod <- lapply(NameFunMod, FUN = get)
+ FunMod <- lapply(NameFunMod, FUN = match.fun)
IdMod <- which(sapply(FunMod, FUN = function(x) identical(FUN_MOD, x)))
if (length(IdMod) < 1) {
stop("'FUN_MOD' must be one of ", paste(NameFunMod, collapse = ", "))
--
GitLab