R - 将函数转换为字符串

Question

我正在开发一个与Reduce类似的函数，在这个函数中传入一个函数并将其分配给参数。这是一个简单的例子来展示我正在做的事情。

fun <- function(f){

    switch(f,
           `+` = "addition",
           stop("undefined")
    )
}

fun(`+`)

现在这显然不会成功，因为switch需要character或numeric EXPR。我不知道该怎么做的是将传递给f的函数fun转换为string。

Answer 1

一种方法是捕获输入并解析呼叫。

proc means data=have;
class MC Date;
var DIA;
run;

Answer 2

在上面的皮埃尔评论中，可以使用identical来测试两个函数是否相同。这对switch不起作用，但if / else树仍然相对简单：

fun <- function(f) {
    if (identical(f, `+`)) {
        return('addition')
    } else if (identical(f, mean)) {
        return('mean')
    } else {
        return('undefined')
    }
}