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_REAL_ELT(cdata, i_c, float(value)) elif isinstance(i, slice): for i_c, v in zip(range(*i.indices(len(self))), value): openrlib.SET_REAL_ELT(cdata, i_c, float(v)) else: raise TypeError('Indices must be integers or slices, not %s' % type(i))
def _float_to_sexp(val: float): rlib = openrlib.rlib s = rlib.Rf_protect(rlib.Rf_allocVector(rlib.REALSXP, 1)) openrlib.SET_REAL_ELT(s, 0, val) rlib.Rf_unprotect(1) return s