No, at least not in a supported, user-friendly way. As Arun put it:
> replicate
function (n, expr, simplify = "array")
sapply(integer(n), eval.parent(substitute(function(...) expr)),
simplify = simplify)
...
> sapply
function (X, FUN, ..., simplify = TRUE, USE.NAMES = TRUE)
{
FUN <- match.fun(FUN)
answer <- lapply(X = X, FUN = FUN, ...)
...
Now this is what sapply
sees if you pass 3
:
> integer(3)
[1] 0 0 0
Why don't you write your own version of replicate
to use as a shortcut?