def testMapperR2Python_s4(self): robjects.r('setClass("A", representation(x="integer"))') classname = rinterface.StrSexpVector(["A", ]) one = rinterface.IntSexpVector([1, ]) sexp = rinterface.globalenv.get("new")(classname, x=one) self.assertTrue(isinstance(robjects.default_ri2py(sexp), robjects.RS4))
def f(obj): pyobj = robjects.default_ri2py(obj) inherits = rinterface.baseenv["inherits"] classname = rinterface.SexpVector(["density", ], rinterface.STRSXP) if inherits(pyobj, classname)[0]: pyobj = Density(pyobj) return pyobj
def testMapperR2Python_environment(self): sexp = rinterface.globalenv.get(".GlobalEnv") self.assertTrue(isinstance(robjects.default_ri2py(sexp), robjects.Environment))
def testMapperR2Python_function(self): sexp = rinterface.globalenv.get("plot") ob = robjects.default_ri2py(sexp) self.assertTrue(isinstance(ob, robjects.Function))
def testMapperR2Python_boolean(self): sexp = rinterface.globalenv.get("T") ob = robjects.default_ri2py(sexp) self.assertTrue(isinstance(ob, robjects.Vector))
def testMapperR2Python_string(self): sexp = rinterface.globalEnv.get("letters") ob = robjects.default_ri2py(sexp) self.assertTrue(isinstance(ob, robjects.RVector))