获取通过R中的管道传递的数据帧的名称

Question

我希望能够打印通过管道传递的数据帧的名称。这可能吗？我可以。

printname <- function(df){
    print(paste(substitute(df)))
}
printname(mtcars)
#[1] "mtcars"

但是，它返回“。”当此函数使用magrittr 管道进行管道传输时。

mtcars %>% printname
# [1] "."

这在编写记录生产过程中使用的函数的自定义错误消息时会很有帮助——如果日志中唯一的内容是“.”，那么很难知道哪里出错了。

返回原始调用可能就足够了，其中包括mtcars %>% 片段。

Answer 1

这是第一次尝试，有点像 hack，但似乎可行。

find_chain_parts <- function() {
    i <- 1
    while(!("chain_parts" %in% ls(envir=parent.frame(i))) && i < sys.nframe()) {
          i <- i+1
      }
    parent.frame(i)
}

printfirstname <- function(df){
    ee <- find_chain_parts()
    print(deparse(ee$lhs))
}

mtcars %>% printfirstname
# [1] "mtcars"

pipe 函数创建了一个跟踪链部分的环境。我尝试在当前执行环境中查找此变量，然后使用存储在那里的lhs 信息来查找管道开头的符号。这没有经过很好的测试。