How to check which function I passed (as an argument) to a self-defined function?

Question

I have a function that accepts a function as an argument. However within my function I need to create a variable depending on which function I passed into it. How can this be achieved?

The following code illustrates the idea (it doesn't work because FUN cannot be compared against mean).

myfunc <- function(x,FUN){
  if(FUN==mean){y <- 1;}else{y <- 2;}
  return(FUN(x+y));
}

Thanks!

Possibly: http://stackoverflow.com/questions/14806627/getting-the-name-of-a-data-frame/14806676#14806676 — Blue Magister, Feb 11 '14 at 05:54

score 0 · Accepted Answer · edited May 23 '17 at 11:57

0

Your question is equivalent to "How do I compare functions?". See here, the answer is

myfunc <- function(x, FUN){
  if (identical(FUN, mean)) y <- 1 else y <- 2
  return (FUN(x+y));
}

myfunc(1, mean)
[1] 2 # = mean(1+1)
myfunc(1, sqrt)
[1] 1.732051 # = sqrt(1+2)

edited May 23 '17 at 11:57

Community

1
1

answered Feb 11 '14 at 05:53

tonytonov

25,060
16
82
98

Thanks. I've a feeling this must have been answered before, but I couldn't think of a good search keyword... – David Feb 11 '14 at 05:57
This is okay, you're welcome! – tonytonov Feb 11 '14 at 06:00

How to check which function I passed (as an argument) to a self-defined function?

1 Answers1