Remove ... args from function

BahgatN · Apr 27, 2021 · cf0a865 · cf0a865
1 parent 4942b3e
commit cf0a865
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -539,6 +539,9 @@ installExprFunction <- function(expr, name, eval.env = parent.frame(2),
 quoToFunction <- function(q, label, ..stacktraceon = FALSE) {
   q <- as_quosure(q)
   func <- as_function(q)
+  # as_function returns a function that takes `...`. We want one that takes no
+  # args.
+  formals(func) <- list()
   wrapFunctionLabel(func, label, ..stacktraceon = ..stacktraceon)
 }