Operator überladen für Funktionen in R - merkwürdiges Verhalten

Question

Leider Dinge wie (f+g)(3) wo f und g sind beide unäre Funktionen arbeiten nicht in R. Daher habe ich versucht, den "+" - Operator für unäre Funktionen in der folgenden Weise zu überlasten:

"+.function" = function(e1, e2){ 
    return(function(x) e1(x) + e2(x)) 
} 

Aber wenn ich versuche, dies zu verwenden, tut das nichts. Der Code

a = function(x) 2*x 
(a+a)(2) 

produziert den gleichen Fehler wie wenn +.function nicht einmal definiert.

Nach einiger Zeit habe ich herausgefunden, dass es tatsächlich eine Möglichkeit gibt, Funktionen auf diese Weise hinzuzufügen: Wenn die Funktionen Mitgliederfunktionen einer Referenzklasse sind, funktioniert das! Das heißt, der folgende Code (zusammen mit der "+" Definition von oben)

clsA = setRefClass("clsA", 
    methods = list(
    b = function(x) 2*x 
)) 

inst_a = clsA$new() 
(inst_a$b + inst_a$b)(2) 

returns "8" (wie erwartet). Daher habe ich bereits eine Art Workaround für mein Problem. Jetzt sind meine Fragen:

Was ist der Grund für dieses seltsame Verhalten? Warum kümmert sich +.function nicht um die "normale" Funktion, sondern um die Mitgliederfunktionen? Hat jemand eine Idee wie man den Operator auf übliche Funktionen "erweitert"?

Answer 1

Wenn Sie die Klasse von a, zum Beispiel wie class(a)<-"ownfunction" (oder besser redifine noch class(a)<-c("ownfunction","function"), und machen Sie Ihren "+.function" als "+.ownfunction"

Es scheint, dass die function Klasse auf eine besondere Weise behandelt wird: Wenn Sie debug("+.function");(a+a)(2) ausführen, sehen Sie dass "+.function" nicht einmal aufgerufen wird.

EDIT: siehe Kommentare.

Answer 2

Als Abhilfe können, könnten Sie ein special operator (%...%) wie folgt definieren:

"%+%" <- function(e1, e2) { 
    return(function(x) e1(x) + e2(x)) 
} 

a <- function(x) 2*x 
(a %+% a)(2) # == 8