Перегрузка оператора в эталонных классах R

Question

Я относительно новичок в ООП и нуждаюсь в совете: что является лучшим способом перегрузить генераторы Арифметики в ссылочных классах в R?

Например, предположим, что я определяю

bar <- setRefClass("foo", fields=list(a="numeric", b="numeric")) 

Если я пытаюсь очевидную вещь:

> bar$new(a=3,b=1) + bar$new(a=1,b=3) 
Error in bar$new(a = 3, b = 1) + bar$new(a = 1, b = 3) : 
non-numeric argument to binary operator 

Что такое рекомендуемый способ сделать что-то подобное (а + а) + (b + Ь)?

Answer 1

Вы можете воспользоваться тем, что ссылки на классы S4 + среды, и определить метод S4:

bar <- setRefClass("foo", fields = list(a = "numeric", b = "numeric")) 
one <- bar$new(a = 1, b = 1) 
two <- bar$new(a = 2, b = 2) 

# Find the formals for + with getGeneric("+") 
setMethod("+", c("foo", "foo"), function(e1, e2) { 
    bar$new(a = e1$a + e2$a, b = e1$b + e2$b) 
}) 
one + two 

Это так же легко определить набор методов для группы родовом:

setMethod("Ops", c("foo", "foo"), function(e1, e2) { 
    bar$new(a = callGeneric(e1$a, e2$a), b = callGeneric(e1$b, e2$b)) 
}) 
one/two