[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)