获取作为参数传递给R中嵌套函数的函数的名称

Question

在R中，我需要一个作为参数传递给嵌套函数的函数的名称。

> fun1 <- function(f) deparse(substitute(f))
> fun2 <- function(f) fun1(f)
> fun1(mean)
[1] "mean"
> fun2(mean)
[1] "f"
> 

如何获取函数的名称，而不依赖于作为嵌套函数的参数传递的次数？

Answer 1

这会在堆栈的第一帧中进行替换：

fun1 <- function(f) deparse(substitute(f, sys.frame(1)))

fun2 <- function(f) fun1(f)

fun1(mean)
#[1] "mean"
fun2(mean)
#[1] "mean"

显然，如果你没有从最外面的函数传递参数，那么这将失败：

fun3 <- function() fun2(mean)
fun3()
#[1] "f"

如果也会失败，如果更改参数名称：

fun2 <- function(g) fun1(g)
fun2(mean)
#[1] "f"

但是，对于您的用例（您尚未描述）可能就足够了。

如果这些限制是一个问题，我们需要更复杂和低效的东西：

fun1 <- function(f) {

  fr <- rev(sys.frames())

  f <- substitute(f, fr[[1]])

  #loop over the frame stack
  for (i in seq_along(fr)[-1]) {
    f <- eval(bquote(substitute(.(f), fr[[i]])))
  }

  deparse(f)
}

fun2 <- function(g) fun1(g)

fun3 <- function() fun2(mean)

fun1(mean)
#[1] "mean"
fun2(mean)
#[1] "mean"
fun3()
#[1] "mean"

当然，在边缘情况下，这仍然会破裂：

fun4 <- function(mean) fun3()
fun4(2)
#[1] "2"

你可以尝试处理它们，但我会停在这里。