r - 获取函数名

Question

希望这不是太简单。我正在寻找一个函数，它给我一个函数的名称，我将它分配给一个变量。所以像

x <- mean
the_function_i_look_for(x)
[1] "mean"

有任何想法吗？提前谢谢了！

编辑：

好的，这是一个更详细的例子：实际上我有一个函数，我传递一个任意对数并返回一个 data.frame。数据框的一列名称应指示使用的对数。

> myFunction <- function( log, x ) {
    df <- data.frame( x, log(x))
    names(df) <- c(the_function_i_look_for(log), "x")
    return(df)
  }
> myFunction( log10, c(10,100,1000) )
>   log10    x
  1     1   10
  2     2  100
  3     3 1000

Answer 1

你可以使用?substitute：

myFunction <- function( log, x ) {
    df <- data.frame( x, log(x))
    names(df) <- c("x", substitute(log))
    return(df)
}

myFunction( log10, c(10,100,1000) )
#     x log10
#1   10     1
#2  100     2
#3 1000     3

编辑：似乎也适用于 ReferenceClasses：

foo <- setRefClass("foo",
    methods = list(
    bar = function(x) {
        message("function: ", substitute(x))
    }
))

f <- foo$new()
f$bar(log)
# function: log
f$bar(mean)
# function: mean