[R-br] Erro relacionado a algum loop?

Olá pessoal, estou recebendo o seguinte erro, Error: evaluation nested too deeply: infinite recursion / options(expressions=)? mas nem sequer há um loop explícito no código. O que pode ser? Obrigado. func <- Vectorize(function(x, a, sad, trunc=0, ...) { result <- function(x) { f1 <- function(n) { dcom <- paste("d", deparse(substitute(sad)), sep="") dots <- c(as.name("n"), list(...)) f <- do.call(dcom, dots) g <- dpois(x,a*n) f * g } integrate(f1, 0, Inf)$value } return(result(x) / (1 - result(trunc))) }, "x") func(1, 0.1, exp)