getCall не распознает ... когда функция модели заключена в другую функцию

Question

Если я оберну функцию подгонки модели, например, блеск из пакета lme4, в другую функцию и разрешу аргумент ..., то она не распознается getCall. Это ошибка?

library(lme4)
x = rnorm(100)
beta0 = 1
beta1 = 2
fact = factor(rep(1:4, each = 25))
y = beta0 + beta1 * x + rep(rnorm(4), each = 25) + rnorm(100)
dat <- data.frame("y" = y, "x" = x, "fact" = fact)
f <- function(data, formula, ...) { 
  lmer(formula, data, ...)
}
mod1 <- f(data = dat, formula = formula(y ~ x + (1|fact)), 
 control = lmerControl(optimizer="Nelder_Mead"))

mod2 <- lmer(data = dat, formula = y ~ x + (1|fact), 
  control = lmerControl(optimizer="Nelder_Mead"))
getCall(mod1)
getCall(mod2)