Как вызвать метод суперкласса в R RefClasses

Question

У меня все еще есть некоторые проблемы с использованием RefClasses класса R, особенно когда он наследуется от двух разных классов.

Предположим, я получил следующую ситуацию: У меня есть два класса, оба с методом под названием «тест». Теперь я хочу иметь класс, который содержит их обоих. Как я могу привести метод подкласса для вызова обоих методов суперкласса?

пример:

A <- setRefClass("classA",
    fields = c(aa = "character",
               aaa = "numeric"),
    methods = list(
      test = function(){
        cat("Hi I'm class A")
      }
    ) 
)

B <- setRefClass("classB",
                 fields = c(bb = "character",
                            bbb = "numeric"),
                 methods = list(
                   test = function(){
                     cat("Hi I'm class B")
                   }
                 ) 
)



C <- setRefClass("classC",
                 contains = c("classA","classB"),
                 fields = c(cc = "character",
                            ccc = "numeric"),
                 methods = list(
                   test = function(){
                     # super() seems not to work
                     # any idea what to do here to call
                     # test from classA and classB ?
                     cat("Hi I'm class c")
                   }
                 ) 
)