调用.Internal(vapply)报错：'...'上下文错误，求原因及特殊内部函数解析

你的代码报错的核心原因是：你在.Internal()中调用的vapply是用户可见的base::vapply函数，而非内部实现本身。

当你在全局环境中写.Internal(vapply(...))时，vapply会被解析为base::vapply，此时你相当于执行了：

.Internal( base::vapply(test_l, \(x) x^2, numeric(1), FALSE) )

而base::vapply的参数定义是(X, FUN, FUN.VALUE, ..., USE.NAMES = TRUE)，第四个位置参数是...（可变参数），但base::vapply的函数体并没有使用...。当你传递FALSE作为第四个位置参数时，它会被归入...，但函数未使用这些额外参数，因此触发错误：'...' used in an incorrect context。

用户可见的base::vapply内部调用.Internal(vapply(...))时，这里的vapply是base命名空间中绑定的内部特殊函数入口，而非用户层函数，因此不会出现参数解析错误。

根据R-ints手册的内容，特殊内部函数指的是一类通过.Internal暴露，但行为和调用方式异于普通内部函数的函数，包括NextMethod、Recall、withVisible、cbind、rbind、eapply、lapply和vapply，它们的特殊性体现在：

• 命名空间绑定：这些函数的内部实现仅在特定命名空间（如base）中可被正确解析为C层入口，在全局环境中直接调用.Internal(特殊函数名(...))会解析为用户层包装函数，而非内部实现。
• 上下文依赖：部分函数（如NextMethod、Recall）依赖R的方法调度或递归调用上下文，无法脱离特定求值环境单独使用。
• 预处理要求：像vapply、lapply这类函数，用户层包装会先做参数校验（如match.fun(FUN)、转换X为列表），内部实现直接依赖这些预处理后的参数，无法直接接收原始用户输入。

如果要直接调用vapply的内部实现，需要在base命名空间的上下文中执行，同时确保FUN经过match.fun处理：

test <- rnorm(10000)
test_l <- as.list(test)
FUN <- match.fun(\(x) x^2)

# 在base命名空间中调用内部vapply
test_2 <- eval(quote(.Internal(vapply(test_l, FUN, numeric(1), FALSE))), envir = asNamespace("base"))

内容的提问来源于stack exchange，提问作者snaut