获取R函数返回的变量名称

Question

我有这个代码:

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")).

有什么建议？

Answer 1

如果你看一下%>%运算符里面的调用栈,你会得到类似的东西

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如果您仍然可以访问传递给函数的promise,那么它只会像那样工作.

所以问题是在链中调用函数时,它已被重新分配,.这就是为什么你不能再访问原始"名称"的原因了.