Commit b56a2b34 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

Merge branch '119-fix-broken-package-reverse-dependency' into 'dev'

Resolve "Fix broken package reverse dependency"

Closes #119

See merge request !45
parents c4644eae ccc9b396
Pipeline #22711 passed with stages
in 8 minutes and 51 seconds
......@@ -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 = ", "))
......
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