我有这个代码：
library(magrittr)
a <- function(cars) return(cars)
b <- function(x) return(list(varname = deparse(substitute(x)), content = x))
b(cars)返回一个包含字符串cars和 data.frame 内容的列表cars。
有什么方法a(cars) %>% b()可以返回字符串cars（函数返回的变量的名称a()）和data.frame的内容？
相反，它返回.data.frame 的内容。
也就是说，我希望第二个函数返回第一个函数返回的变量的名称以及变量的内容。
我真正想做的b()是类似write.csv(x, paste0(deparse(substitute(x)), ".csv")).
有什么建议么？
如果您查看%>%运算符内部的调用堆栈，您会得到类似这样的信息
a(cars) %>% (function(x) sys.calls())
# [[1]]
# a(cars) %>% (function(x) sys.calls())
# [[2]]
# withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
# [[3]]
# eval(quote(`_fseq`(`_lhs`)), env, env)
# [[4]]
# eval(expr, envir, enclos)
# [[5]]
# `_fseq`(`_lhs`)
# [[6]]
# freduce(value, `_function_list`)
# [[7]]
# withVisible(function_list[[k]](value))
# [[8]]
# function_list[[k]](value)
# [[9]]
# (function (x) sys.calls())(.)
你可以看到你的函数最终被调用的时候，你离原始表达式还有很多层次。问题是参数可能已在链中重新分配。考虑这种情况
a <- 6
b <- a
f <- function(x) deparse(substitute(x))
f(b)
# [1] "b"
但是 R 无法知道它b实际上来自a. 没有办法通过这样的任务倒退。substitute只有当您仍然可以访问传递给函数的承诺时，才会这样工作。
所以问题是当你的函数在链中被调用时，它已被重新分配，.这就是你不能再访问原始“名称”的原因。