将 lapply 与关键字参数一起使用

Question

所以如果我没有遗漏一些大的东西，那么 lapply/sapply/etc. 工作是使用列表中的可迭代元素作为第一个参数，因此强制您将其用作函数的位置参数（ FUN ）。

所以一个正常的用例是

foo <- function(a = NULL, b = NULL, c = NULL) {
  print(glue::glue("a: {a}"))
  print(glue::glue("b: {b}"))
  print(glue::glue("c: {c}"))
}

lapply(letters[1:3], foo)
#> a: a
#> 
#> 
#> a: b
#> 
#> 
#> a: c
#> [[1]]
#> 
#> 
#> [[2]]
#> 
#> 
#> [[3]]

但是，如果我想以 b 的形式遍历列表，则必须将值设置为 a。 像这样。

lapply(letters[1:3], foo, a = NULL)
#> 
#> b: a
#> 
#> 
#> b: b
#> 
#> 
#> b: c
#> [[1]]
#> 
#> 
#> [[2]]
#> 
#> 
#> [[3]]
lapply(letters[1:3], foo, a = NULL,b = NULL )
#> 
#> 
#> c: a
#> 
#> 
#> c: b
#> 
#> 
#> c: c
#> [[1]]
#> c: a
#> 
#> [[2]]
#> c: b
#> 
#> [[3]]
#> c: c

我知道我可以将它设置为默认值，但我想知道是否有办法使用迭代元素作为关键字参数而不是位置参数。

它对于purrr::map系列也很方便，但purrr::map来，这样的选项也不可用。

^{由reprex 包(v0.3.0) 于 2019 年 12 月 24 日创建}

Answer 1

只需定义一个新的匿名函数来将参数与名称相关联，例如

lapply(letters[1:3], function(x) foo(b = x))

如果您使用purrr ，则打字会少一些，但从概念上讲，您正在做同样的事情：

purrr::map(letters[1:3], ~ foo(b = .))