R - Konvertieren einer Funktion in String

Question

Ich arbeite an einer Funktion, die sich ähnlich wie Reduce verhalten würde, wo Sie eine Funktion übergeben und über die Argumente versenden. Hier ist ein einfaches Beispiel, um zu zeigen, woran ich gerade arbeite.

Jetzt wird diese Arbeit offenbar nicht, wie es steht, weil switch eine character oder numericEXPR erfordert. Was ich nicht weiß, ist, die Funktion f, die an fun übergeben wird, in eine string umzuwandeln.

Answer 1

Ein Ansatz besteht darin, die Eingabe zu erfassen und den Aufruf zu trennen.

fun <- function(f){ 
    switch(deparse(substitute(f)), 
     `+` = "addition", 
     stop("undefined") 
) 
} 

fun(`+`) 
#[1] "addition" 

Answer 2

abgehend oberhalb von Pierre Kommentar kann man identical verwenden, um zu testen, ob zwei Funktionen die gleichen sind. Das funktioniert nicht gut mit switch, sondern eine if/else Baum ist noch relativ einfach:

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