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)