R语言中封装deparse()与substitute()的函数嵌套调用问题

当你把get_name()嵌套在另一个函数（比如new_function()）里调用时，substitute()或ensym()默认只会捕获当前函数（new_function()）的形参绑定，而非最外层调用时传入的原始变量名。这是因为嵌套调用中，实参Variable1已经被传递给new_function()的arg1参数，此时get_name()内部看到的是arg1符号，而非原始的Variable1。

要获取最外层调用的原始变量名，需要回溯调用栈，直接读取上层函数调用时的实际参数表达式。以下两种方法都能解决问题：

方法1：基于rlang包实现 #

利用rlang::call_frame()定位上层调用环境，再用enexpr()提取对应参数的原始表达式：

library(rlang)

get_name <- function(x) {
  # 跳过当前get_name的调用帧，获取直接上层的调用环境
  parent_frame <- call_frame(n = 2)
  # 从上层环境提取参数x对应的原始表达式
  expr <- enexpr(x, frame = parent_frame)
  as_string(expr)
}

new_function <- function(arg1) {
  get_name(arg1)
}

# 测试验证
Variable1 <- 123
get_name(x = Variable1)  # 返回"Variable1"
new_function(arg1 = Variable1)  # 返回"Variable1"

方法2：基础R原生实现（无需额外包） #

通过sys.call()获取上层调用的完整表达式，再提取目标参数的内容：

get_name <- function(x) {
  # 获取第2层调用的完整表达式（1为当前函数，2为直接上层调用）
  parent_call <- sys.call(which = 2)
  # 匹配参数名称，提取对应的原始表达式
  arg_pos <- match(substitute(x), names(parent_call))
  arg_expr <- parent_call[[arg_pos]]
  deparse(arg_expr)
}

new_function <- function(arg1) {
  get_name(arg1)
}

# 测试验证
Variable1 <- 123
get_name(x = Variable1)  # 返回"Variable1"
new_function(arg1 = Variable1)  # 返回"Variable1"

• 核心逻辑是绕过当前函数的符号绑定，直接读取上层调用传入的原始表达式。
• 如果嵌套层级超过两层，需要调整call_frame(n = ...)或sys.call(which = ...)中的数字，数字代表调用栈的层级（1是当前函数，2是直接上层，层级越深数字越大）。

内容的提问来源于stack exchange，提问作者Harrison Jones