def test_getitem(): vec = ri.BoolSexpVector([True, False, False]) assert vec[1] == False
def test_setitem(): vec = ri.BoolSexpVector([True, False, False]) vec[1] = True assert vec[1] == True
def testSetSliceBool(self): vec = ri.BoolSexpVector([True,False,True]) vec[0:2] = ri.BoolSexpVector([False, False]) self.assertEqual(3, len(vec)) self.assertEqual(False, vec[0]) self.assertEqual(False, vec[1])
def testNALogicalInVector(self): na_bool = ri.NALogicalType() x = ri.BoolSexpVector((True, na_bool, False)) self.assertTrue(x[1] is na_bool) self.assertEqual(True, x[0]) self.assertEqual(False, x[2])
return "{}({})".format(type(self).__name__, ", ".join(items)) def __eq__(self, other): return self.__dict__ == other.__dict__ else: from types import SimpleNamespace from rpy2.robjects.robject import RObjectMixin import rpy2.rinterface as rinterface from rpy2.rinterface import StrSexpVector from rpy2.robjects import help as rhelp from rpy2.robjects import conversion getmethod = rinterface.baseenv.get("getMethod") require = rinterface.baseenv.get('require') require(StrSexpVector(('methods', )), quiet = rinterface.BoolSexpVector((True, ))) class RS4(RObjectMixin, rinterface.SexpS4): """ Python representation of an R instance of class 'S4'. """ def slotnames(self): """ Return the 'slots' defined for this object """ return methods_env['slotNames'](self) def do_slot(self, name): return conversion.ri2ro(super(RS4, self).do_slot(name)) @staticmethod def isclass(name): """ Return whether the given name is a defined class. """
def testBool(self): sexp = ri.BoolSexpVector([True, ]) isBool = ri.globalenv.get("is.logical") ok = isBool(sexp)[0] self.assertTrue(ok)
def __init__(self, *args, **kwargs): super(Function, self).__init__(*args, **kwargs) self._local_env = self.__newenv( hash=rinterface.BoolSexpVector((True, )) )
def test_NALogical_in_vector(): na_bool = ri.NA_Logical x = ri.BoolSexpVector((True, na_bool, False)) assert x[0] is True assert x[1] is ri.NA_Logical assert x[2] is False
def __init__(self, o: typing.Optional[sexp.SexpEnvironment] = None): if o is None: o = _new_env(hash=rinterface.BoolSexpVector([ True, ])) super(sexp.SexpEnvironment, self).__init__(o)
def test_bool(): sexp = ri.BoolSexpVector([True, ]) isBool = ri.globalenv.find("is.logical") assert isBool(sexp)[0]
def testGetSliceBool(self): vec = ri.BoolSexpVector([True, False, True]) vec = vec[0:2] self.assertEquals(2, len(vec)) self.assertEquals(True, vec[0]) self.assertEquals(False, vec[1])
def test_init_from_seqr(): seq = [True, False, False] v = ri.BoolSexpVector(seq) assert len(v) == 3 for x, y in zip(seq, v): assert x == y
def test_setslice(): vec = ri.BoolSexpVector([True, False, False]) vec[0:2] = [True, True] assert len(vec) == 3 assert vec[0] is True assert vec[1] is True
def test_getslice(): vec = ri.BoolSexpVector([True, False, False]) vec = vec[0:2] assert len(vec) == 2 assert vec[0] == True assert vec[1] == False
def __init__(self, o=None): if o is None: o = _new_env(hash=rinterface.BoolSexpVector([ True, ])) super(Environment, self).__init__(o)
def test_getslice_negative(): vec = ri.BoolSexpVector([True, False, True]) vec_s = vec[-2:-1] assert len(vec_s) == 1 assert vec_s[0] == False
def __init__(self, obj): obj = rinterface.BoolSexpVector(obj) super(BoolVector, self).__init__(obj)