Python SET_LOGICAL_ELTの例

コード例 #1

 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_LOGICAL_ELT(cdata, i_c, int(value))
     elif isinstance(i, slice):
         for i_c, v in zip(range(*i.indices(len(self))), value):
             openrlib.SET_LOGICAL_ELT(cdata, i_c, int(v))
     else:
         raise TypeError('Indices must be integers or slices, not %s' %
                         type(i))

コード例 #2

ファイル: conversion.py プロジェクト: rpy2/rpy2

def _bool_to_sexp(val: bool):
    # TODO: test value is not too large for R's ints
    rlib = openrlib.rlib
    s = rlib.Rf_protect(rlib.Rf_allocVector(rlib.LGLSXP, 1))
    openrlib.SET_LOGICAL_ELT(s, 0, int(val))
    rlib.Rf_unprotect(1)
    return s