overloading degli operatori per le funzioni in R - strano comportamento

Question

Purtroppo le cose come (f+g)(3) dove feg sono due funzioni unari non funzionano in R. Quindi ho cercato di sovraccaricare l'operatore "+" per le funzioni unari nel seguente modo:

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

Ma se provo a usarlo, questo non fa nulla. Il codice

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

produce lo stesso errore come se +.function non è nemmeno definito.

Da un po 'di tempo a giocare, ho scoperto che esiste effettivamente una possibilità di aggiungere funzioni in questo modo: se le funzioni sono funzioni membro di una classe di riferimento, funziona! Vale a dire, il seguente codice (insieme al "+" definizione dall'alto)

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

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

restituisce "8" (come previsto). Quindi ho già una sorta di soluzione alternativa per il mio problema. Ora le mie domande sono:

Qual è la ragione di questo strano comportamento? Perché la funzione "normale" non è la +.function ma le funzioni dei membri della classe? Qualcuno ha un'idea di come "espandere" l'operatore alle funzioni abituali?

Answer 1

Se si ridefiniscono la classe di a, per esempio come class(a)<-"ownfunction" (o meglio ancora class(a)<-c("ownfunction","function"), e rendere il vostro "+.function" come "+.ownfunction" , quindi

Sembra che la classe function sia trattata in un modo speciale: se si esegue debug("+.function");(a+a)(2) si vede che "+.function" non viene nemmeno chiamato.

MODIFICA: vedere i commenti.

Answer 2

Come soluzione alternativa, è possibile definire un special operator (%...%) come questo:

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

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