Only include udf function once

nlmixr2 · Nov 1, 2023 · f5cbea4 · f5cbea4
1 parent 1fa077f
commit f5cbea4
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/rudf.R b/R/rudf.R
@@ -259,7 +259,10 @@ rxRmFunParse <- function(name) {
   }
   .nargs <- length(.formals)
   .udfEnv$fun[[fun]] <- list(.fun, environment(.fun))
-  .udfEnv$udf <- c(.udfEnv$udf, setNames(.nargs, fun))
+  .w <- which(names(.udfEnv$udf) == fun)
+  if (length(.w) == 0L) {
+    .udfEnv$udf <- c(.udfEnv$udf, setNames(.nargs, fun))
+  }
   return(list(nargs=.nargs,
               fun))
 }