def testSet_accessors(self):
robjects.r['setClass']("A", robjects.r('list(foo="numeric")'))
robjects.r['setMethod']("length", signature="A",
definition = robjects.r("function(x) 123"))
class A(methods.RS4):
def __init__(self):
obj = robjects.r['new']('A')
self.__sexp__ = obj.__sexp__
acs = (('length', None, True, None), )
methods.set_accessors(A, "A", None, acs)
a = A()
self.assertEquals(123, a.length[0])
def test_set_accessors():
robjects.r['setClass']("A", robjects.r('list(foo="numeric")'))
robjects.r['setMethod']("length",
signature="A",
definition=robjects.r("function(x) 123"))
class A(methods.RS4):
def __init__(self):
obj = robjects.r['new']('A')
super().__init__(obj)
acs = (('length', None, True, None), )
methods.set_accessors(A, "A", None, acs)
a = A()
assert a.length[0] == 123