r-如何以dplyr的方式在嵌套函数之间传递符号变量名

Question

我想写一个函数，它采用列的符号名称，并将其传递给执行特定任务(子任务(的后续函数。

让我给你看一个例子：

数据：

> ( d <- data.frame(A=1:3, B=3:1) )
A B
1 1 3
2 2 2
3 3 1

现在我的功能：

fn <- function(data, cols) {
return(data %>% mutate(across({{cols}}, ~. * 2)))
}

它起作用：

> d %>% fn(A)
A B
1 2 3
2 4 2
3 6 1

现在，假设这个函数作为一个单元任务执行一些重要且可分离的任务。现在我想在另一个函数中使用这个函数，以dplyr的方式获取列名：

another_fn <- function(data, cols) {
result <- data %>% fn(cols)
# .... more code

return(result)
}

这行不通。

> d %>% another_fn(cols = A)
Error: Problem with `mutate()` input `..1`.
x object 'A' not found
i Input `..1` is `across(cols, ~. * 2)`.
Run `rlang::last_error()` to see where the error occurred.

当我将列作为字符串提供时，它工作得很好。所以我知道，当我只提供象征性名称时，上下文在某个地方丢失了

> d %>% another_fn(cols = "A")
Note: Using an external vector in selections is ambiguous.
i Use `all_of(cols)` instead of `cols` to silence this message.
i See <https://tidyselect.r-lib.org/reference/faq-external-vector.html>.
This message is displayed once per session.
A B
1 2 3
2 4 2
3 6 1

我的问题是：如何在嵌套调用之间传递符号名称？

请注意，我不希望使用三点(省略号(运算符。我确实想控制我传递的内容以及传递给哪个变量。

---

编辑：

好的，我找到了答案。｛｛｝｝应该添加到嵌套调用中

another_fn <- function(data, cols) {
result <- data %>% fn({{cols}})
# .... more code

return(result)
}

> d %>% another_fn(cols = A)
A B
1 2 3
2 4 2
3 6 1
> d %>% another_fn(cols = "A")
A B
1 2 3
2 4 2
3 6 1
> column
[1] "A"
> d %>% another_fn(cols = column)
A B
1 2 3
2 4 2
3 6 1
> 

Answer 1

只需像在第一个函数中那样使用{{}}

another_fn <- function(data, cols) {
result <- data %>% fn({{cols}})

return(result)
}