Exemple #1
0
 def __setitem__(self, i: int, value) -> None:
     cdata = self.__sexp__._cdata
     if isinstance(i, int):
         i_c = _rinterface._python_index_to_c(cdata, i)
         openrlib.SET_INTEGER_ELT(cdata, i_c, int(value))
     elif isinstance(i, slice):
         for i_c, v in zip(range(*i.indices(len(self))), value):
             openrlib.SET_INTEGER_ELT(cdata, i_c, int(v))
     else:
         raise TypeError('Indices must be integers or slices, not %s' %
                         type(i))
Exemple #2
0
def _int_to_sexp(val: int):
    rlib = openrlib.rlib
    # TODO: test value is not too large for R's ints
    s = rlib.Rf_protect(rlib.Rf_allocVector(rlib.INTSXP, 1))
    openrlib.SET_INTEGER_ELT(s, 0, val)
    rlib.Rf_unprotect(1)
    return s
Exemple #3
0
def _int_to_sexp(val: int):
    rlib = openrlib.rlib
    # TODO: _rinterface._MAX_INT is determined empirically.
    if val > _rinterface._MAX_INT:
        raise ValueError(
            f'The Python integer {val} is larger than {_rinterface._MAX_INT} ('
            'R\'s largest possible integer).'
        )
    s = rlib.Rf_protect(rlib.Rf_allocVector(rlib.INTSXP, 1))
    openrlib.SET_INTEGER_ELT(s, 0, val)
    rlib.Rf_unprotect(1)
    return s