함수 이름 얻기

Question

잘하면이 너무 간단하지 않습니다. 내가 변수에 할당 한 함수의 이름을 알려주는 함수를 찾고있다. 그럼 뭔가 같은

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

어떤 아이디어? 미리 많은 감사드립니다!

편집 :

확인이 좀 더 상세한 예이다 : 실제로 I 다시 내게 data.frame을주는 I는 임의의 로그를 통과 여기서 기능을 가지고. 데이터 프레임의 한 열 이름은 사용 된 대수를 나타내야합니다.

> 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 

편집 :

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