fix(Utils): use 'match.fun' instead of 'get' to get the body of a modelling function

Refs #119

fix(Utils): use 'match.fun' instead of 'get' to get the body of a modelling function
Refs #119
ccc9b396 · Delaigue Olivier · c4644eae · ccc9b396
Commit ccc9b396 authored 3 years ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 1 addition and 1 deletion
+1 -1
--- 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 = ", "))