Warum kann ich eine Funktion nicht mit ifelse in R zuweisen?

Question

In R, wenn ich versuche, eine Funktion über ifelse zuweisen, ich die folgende Fehlermeldung erhalten:

> my.func <- ifelse(cond, sqrt, identity) 
Error in rep(yes, length.out = length(ans)) : 
    attempt to replicate an object of type 'builtin' 

Wenn condFALSE ist, sieht die Fehler Äquivalent, klagt R über eine

attempt to replicate an object of type 'closure' 

Was kann ich tun, um einer Variablen eine von zwei Funktionen zuzuordnen und was passiert hier?

Answer 1

Da ifelse vektorisiert ist und keine Sonderfälle für nicht vektorisierte Bedingungen bereitstellt, werden die Argumente mit rep(...) repliziert. rep(...) schlägt für Verschlüsse wie im Beispiel jedoch fehl.

Eine Abhilfe wäre temprarily die Funktionen wickeln:

my.func <- ifelse(cond, c(sqrt), c(identity))[[1]] 

Answer 2

@Joshua Ulrich Kommentar ist eine richtige Antwort. Der richtige Weg bedingte Funktionszuordnung zu erreichen, ist ein klassisches if...else eher als die vektorisiert ifelse Methode:

my.func <- if (cond) sqrt else identity