1

うまくいけば、これはあまり単純ではありません。変数に割り当てた関数の名前を教えてくれる関数を探しています。だから何かのような

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

何か案は？よろしくお願いします！

編集：

わかりました。これはより詳細な例です。実際には、任意の対数を渡し、data.frameを返す関数があります。データフレームの1つの列名は、使用された対数を示す必要があります。

> 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
4

1 に答える 1

3

あなたが使用することができます?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
于 2012-05-15T14:18:18.867 に答える