def __init__(self):
assert embedded.isinitialized()
robj = StrSexpVector(['R.version'])
with memorymanagement.rmemory() as rmemory:
parsed = _rinterface._parse(robj.__sexp__._cdata, 1, rmemory)
res = baseenv['eval'](parsed)
self._version = OrderedDict((k, v[0]) for k, v in zip(res.names, res))
def _initr_win32(
interactive: bool = True,
_want_setcallbacks: bool = True,
_c_stack_limit: int = _DEFAULT_C_STACK_LIMIT
) -> typing.Optional[int]:
with openrlib.rlock:
if embedded.isinitialized():
return None
options_c = [ffi.new('char[]', o.encode('ASCII'))
for o in embedded._options]
n_options = len(options_c)
n_options_c = ffi.cast('int', n_options)
status = openrlib.rlib.Rf_initEmbeddedR(n_options_c, options_c)
embedded._setinitialized()
embedded.rstart = ffi.new('Rstart')
rstart = embedded.rstart
rhome = openrlib.rlib.get_R_HOME()
rstart.rhome = rhome
rstart.home = openrlib.rlib.getRUser()
rstart.CharacterMode = openrlib.rlib.LinkDLL
if _want_setcallbacks:
rstart.ReadConsole = callbacks._consoleread
rstart.WriteConsoleEx = callbacks._consolewrite_ex
rstart.CallBack = callbacks._callback
rstart.ShowMessage = callbacks._showmessage
rstart.YesNoCancel = callbacks._yesnocancel
rstart.Busy = callbacks._busy
rstart.R_Quiet = True
rstart.R_Interactive = interactive
rstart.RestoreAction = openrlib.rlib.SA_RESTORE
rstart.SaveAction = openrlib.rlib.SA_NOSAVE
rstart.vsize = ffi.cast('size_t', _DEFAULT_VSIZE)
rstart.nsize = ffi.cast('size_t', _DEFAULT_NSIZE)
rstart.max_vsize = ffi.cast('size_t', _DEFAULT_MAX_VSIZE)
rstart.max_nsize = ffi.cast('size_t', _DEFAULT_MAX_NSIZE)
rstart.ppsize = ffi.cast('size_t', _DEFAULT_PPSIZE)
openrlib.rlib.R_SetParams(rstart)
# TODO: still needed ?
openrlib.rlib.R_CStackLimit = ffi.cast('uintptr_t', _c_stack_limit)
return status