如何在 R 和 S 函数中获取 list(...) 的值

Question

我对@9​​87654321@ 在 R 和 S-plus 中的工作方式感到困惑。对于以下代码

pp <- function(x, ...) { print( length( list(...)))}
pp(1,,,1)

在 S-Plus 中，它可以工作，但在 R 中，它给出“Error in print(length(list(...))) : argument is missing, with no default”

我对它在 R 中的工作原理以及如何在 R 函数中获取 list(...) 的值更感兴趣。

Answer 1

我不确定为什么在 S-plus 中允许使用这种语法，但在 R 中却不允许。

不过，这里是一些具有基本相同效果的 R 代码：

pp <- function(x, ...) {
    print(length(as.list(match.call(expand.dots=FALSE))[["..."]]))
}
pp(1,,,1)
# [1] 3

或者，使用技巧from here：

ppp <- function(x, ...) {
    print(length(substitute(...())))
}
ppp(1,,,1)
# [1] 3

Answer 2

您不能在dots 和dots 之后的任何参数中使用未命名的（编辑：... 和缺失）参数，如果这些参数打算在 arg 列表中匹配。未命名参数自动发生的位置匹配仅在点之前的命名参数（在 arg 列表中）的典型参数处理中“起作用”。

> pp1 <- function(x, ...) { length( list(...))}
> pp1(1,z=NULL,xx=NULL,1)
[1] 3
> pp2 <- function(x, z, ...) { length( list(...))}
> pp2(1,z=NULL,xx=NULL,1)
[1] 2
> pp3 <- function(x, z, ...) { length( list(...))}
> pp3(1, ,xx=NULL,1)
[1] 2

> pp <- function(x, ...) { length( list(...))}
> pp(1, , xx=NULL, 1)
Error in pp(1, , xx = NULL, 1) : argument is missing, with no default

阅读match.call的帮助页面，第二种“常用情况”描述为：

将大部分调用传递给另一个函数，通常是model.frame。这里常见的习惯用法是expand.dots = FALSE，匹配调用的...元素被移除。

参数匹配的顺序（未规避时）在第 4.3.2 节“参数匹配”中描述：

1. 位置匹配。任何不匹配的形式参数都按顺序绑定到未命名的提供参数。如果有一个“...”参数，它将占用剩余的参数，无论是否标记。

如果任何参数仍然不匹配，则会声明错误。