如何检查我将哪个函数（作为参数）传递给自定义函数？

Question

我有一个接受函数作为参数的函数。但是在我的函数中，我需要根据传递给它的函数来创建一个变量。这怎么能实现？

下面的代码说明了这个想法（它不起作用，因为FUN无法与mean进行比较）。

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

谢谢！

Answer 1

您的问题等同于“我如何比较功能？”。见here，答案是

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)