From cf0a865d6fa0ac155d61f0cc650d34e598e28653 Mon Sep 17 00:00:00 2001 From: Winston Chang Date: Tue, 27 Apr 2021 12:29:16 -0500 Subject: [PATCH] Remove ... args from function --- R/utils.R | 3 +++ 1 file changed, 3 insertions(+) diff --git a/R/utils.R b/R/utils.R index e0a326222e..7aedd66ddc 100644 --- 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) }