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