do.call强制在rlang的整洁计算之前进行参数计算

do.call 是 R 语言中的一个函数，它允许你调用一个函数，并将一个列表或向量作为参数传递给这个函数。这在某些情况下非常有用，尤其是当你不确定参数的具体数量或者参数是以列表的形式给出时。

基础概念

在 R 语言中，do.call 的基本语法如下：

do.call(fn, args, quote = FALSE)

fn 是你想要调用的函数。
args 是一个列表，包含了传递给 fn 的参数。
quote 是一个逻辑值，如果为 TRUE，则 args 中的表达式不会被立即求值。

类型与应用场景

do.call 可以用于多种类型的数据和函数，常见的应用场景包括：

合并数据框：使用 rbind 或 cbind 结合 do.call 来合并多个数据框。
应用函数到列表元素：如果你有一个函数和一个列表，你想将这个函数应用到列表的每个元素上，可以使用 lapply 或 do.call。
动态函数调用：在编写通用脚本或函数时，可能需要根据输入动态地调用不同的函数。

遇到的问题及原因

在使用 do.call 时，可能会遇到的问题之一是在整洁计算（tidy evaluation）之前强制进行参数计算。这是因为 do.call 默认会立即求值 args 中的表达式，而整洁计算框架（如 rlang）通常会在函数调用时延迟表达式的求值，直到它们真正需要被计算的时候。

解决方法

如果你需要在整洁计算的上下文中使用 do.call，并且希望延迟参数的计算，你可以设置 quote = TRUE。这样，args 中的表达式就不会被立即求值，而是作为表达式对象传递给函数。

library(rlang)

# 假设我们有一个整洁计算的函数
tidy_function <- function(expr) {
  # 这里可以进行一些整洁计算的操作
  eval_tidy(expr)
}

# 我们想要延迟计算的参数
param <- quote(x + y)

# 使用 do.call 并设置 quote = TRUE 来延迟计算
result <- do.call(tidy_function, list(expr = param), quote = TRUE)

在这个例子中，param 是一个未求值的表达式，它被传递给 tidy_function，在那里它会被整洁计算框架处理。

示例代码

下面是一个更具体的例子，展示了如何在整洁计算的上下文中使用 do.call：

library(dplyr)
library(rlang)

# 创建一个数据框
df <- tibble(x = 1:3, y = 4:6)

# 定义一个整洁计算的函数
summarise_column <- function(data, column) {
  summarise(data, mean = mean(!!sym(column)))
}

# 我们想要延迟计算的列名
column_name <- "x"

# 使用 do.call 并设置 quote = TRUE 来延迟计算列名
result <- do.call(summarise_column, list(data = df, column = column_name), quote = TRUE)

print(result)

在这个例子中，column_name 是一个字符串，它代表了我们想要计算平均值的列名。通过设置 quote = TRUE，我们确保了 column_name 在传递给 summarise_column 函数之前不会被立即转换为符号并求值。

总之，do.call 是一个强大的工具，但在与整洁计算框架结合使用时需要注意参数的求值时机。通过合理设置 quote 参数，可以有效地控制参数的计算时机。