在 R 中解压省略号的参数列表

Question

我对某些函数中省略号（...）的使用感到困惑，即如何将包含参数的对象作为单个参数传递。

在Python 中，它被称为“解包参数列表”，例如，

>>> range(3, 6)             # normal call with separate arguments
[3, 4, 5]
>>> args = [3, 6]
>>> range(*args)            # call with arguments unpacked from a list
[3, 4, 5]

在R 中，您有使用省略号的函数file.path(...)。我希望有这种行为：

> args <- c('baz', 'foob') 
> file.path('/foo/bar/', args)
[1] 'foo/bar/baz/foob'

相反，我得到了

[1] 'foo/bar/baz' 'foo/bar/foob'

args 的元素没有“解压”并同时求值的位置。 R 是否有相当于 Python 的 *arg ？

Answer 1

语法并不那么漂亮，但这确实有效：

do.call(file.path,as.list(c("/foo/bar",args)))

do.call 接受两个参数：一个函数和调用该函数的参数列表。

Answer 2

您可以通过在函数内调用 list(...) 从省略号中提取信息。在这种情况下，省略号中的信息被打包为列表对象。例如：

> foo <- function(x,...){
+   print(list(...))
+ }
> foo(1:10,bar = 'bar','foobar')
$bar
[1] "bar"

[[2]]
[1] "foobar"

您可以通过调用 do.call 从矢量化函数（如 file.path）实现所需的行为，有时与包装器 一起使用会更简单splat（在 plyr 包中）

> args <- c('baz', 'foob')
> library(plyr)
> splat(file.path)(c('/foo/bar', args))
[1] "/foo/bar/baz/foob"

Answer 3

我花了一段时间才找到它，但是 purrr 包有一个等效的到 plyr::splat：它被称为lift_dl。

名称中的“dl”代表“dots to list”，因为它是一系列 lift_xy 函数的一部分，可用于将函数的域从一种输入“提升”为另一种，这些“种类”是列表、向量和“点”。

由于 lift_dl 可能是其中最有用的，因此为其提供了一个简单的 lift 别名。

要重用上面的示例：

library(purrr)
args <- c("baz", "foob")
lift(file.path)(c("/foo/bar", args))
# [1] "/foo/bar/baz/foob"

更新

从 purrr 1.0.0 开始，lift_* 函数系列已被弃用。

展望未来，应该使用 rlang::inject 通过 !!! 运算符启用拼接：

library(rlang)
args <- c("baz", "foob")
inject(file.path("/foo/bar", !!!args))
#> [1] "/foo/bar/baz/foob"