如何在使用管道时在 R 中获取函数输入名称-解网

问：

我正在尝试将输入变量的名称捕获为字符串。这相当容易使用，但是在使用 magrittr 的管道时不起作用。想知道是否有任何简单的修改可以使其在管道中工作以及函数是否正常调用？match.call()

library(magrittr)
myfun <- function(fun){
    print(match.call()$fun %>% as.character())
}

myfun(mean)
mean %>% myfun

myfun(iris)
iris %>% myfun

R 马格里特

myfun <- function(x) {
  x <- substitute(x)

 if (x !="."){
 print(deparse(x))
 }else{

  i <- 1
  while(!("chain_parts" %in% ls(envir=parent.frame(i))) && i < sys.nframe()) {
    i <- i+1
  }
  ee <- parent.frame(i)
  print(deparse(ee$lhs))
  }
}

mean %>% myfun()
[1] "mean"

myfun(mean)
[1] "mean"

希望它有所帮助。 -艾哈迈德·阿亨迪

如何在使用管道时在 R 中获取函数输入名称

How to get a function input name in R whilst using pipes

评论

评论