def test___map_symbols():
rnames = ('foo.bar', 'foo_bar', 'foo')
translations = {}
(symbol_mapping, conflicts,
resolutions) = p_u._map_symbols(rnames, translations)
expected_symbol_mapping = {
'foo_bar': ['foo.bar', 'foo_bar'],
'foo': ['foo']
}
for new_symbol, old_symbols in expected_symbol_mapping.items():
assert symbol_mapping[new_symbol] == old_symbols
translations = {'foo.bar': 'foo_dot_bar'}
(symbol_mapping, conflicts,
resolutions) = p_u._map_symbols(rnames, translations)
def __init__(self,
sexp: rinterface.SexpClosure,
init_prm_translate=None,
on_conflict='warn',
symbol_r2python=default_symbol_r2python,
symbol_resolve=default_symbol_resolve):
super(SignatureTranslatedFunction, self).__init__(sexp)
if init_prm_translate is None:
self._prm_translate = OrderedDict()
else:
assert isinstance(init_prm_translate, dict)
self._prm_translate = init_prm_translate
formals = self.formals()
if formals.__sexp__._cdata != rinterface.NULL.__sexp__._cdata:
(symbol_mapping, conflicts,
resolutions) = _map_symbols(formals.names,
translation=self._prm_translate,
symbol_r2python=symbol_r2python,
symbol_resolve=symbol_resolve)
msg_prefix = ('Conflict when converting R symbols'
' in the function\'s signature:\n- ')
exception = ValueError
_fix_map_symbols(symbol_mapping, conflicts, on_conflict,
msg_prefix, exception)
symbol_mapping.update(resolutions)
reserved_pynames = set(dir(self))
self._prm_translate.update(
(k, v[0]) for k, v in symbol_mapping.items())
if hasattr(sexp, '__rname__'):
self.__rname__ = sexp.__rname__
def test__map_symbols_hidden_function():
rnames = ('exported_func', 'hidden_func', '.onAttach', '__NAMESPACE__')
(symbol_mapping, conflicts,
resolutions) = p_u._map_symbols(rnames, exported_names={'exported_func'})
assert len(symbol_mapping.keys()) == len(rnames) \
and 'exported_func' in symbol_mapping \
and '__hidden_func' in symbol_mapping \
and '_onAttach' in symbol_mapping \
and '__NAMESPACE__' in symbol_mapping
def __fill_rpy2r__(self, on_conflict='fail'):
""" Fill the attribute _rpy2r.
- on_conflict: 'fail' or 'warn' (default: 'fail')
"""
assert(on_conflict in ('fail', 'warn'))
name = self.__rname__
(symbol_mapping,
conflicts,
resolutions) = _map_symbols(
self._env,
translation=self._translation,
symbol_r2python=self._symbol_r2python,
symbol_resolve=self._symbol_resolve
)
msg_prefix = ('Conflict when converting R symbols'
' in the package "%s"'
' to Python symbols: \n-' % self.__rname__)
exception = LibraryError
_fix_map_symbols(symbol_mapping,
conflicts,
on_conflict,
msg_prefix,
exception)
symbol_mapping.update(resolutions)
reserved_pynames = set(dir(self))
for rpyname, rnames in symbol_mapping.items():
# last paranoid check
if len(rnames) > 1:
raise ValueError(
'Only one R name should be associated with %s '
'(and we have %s)' % (rpyname, str(rnames))
)
rname = rnames[0]
if rpyname in reserved_pynames:
raise LibraryError('The symbol ' + rname +
' in the package "' + name + '"' +
' is conflicting with' +
' a Python object attribute')
self._rpy2r[rpyname] = rname
if (rpyname != rname) and (rname in self._exported_names):
self._exported_names.remove(rname)
self._exported_names.add(rpyname)
try:
riobj = self._env[rname]
except rinterface.RRuntimeError as rre:
warn(str(rre))
rpyobj = conversion.rpy2py(riobj)
if hasattr(rpyobj, '__rname__'):
rpyobj.__rname__ = rname
# TODO: shouldn't the original R name be also in the __dict__ ?
self.__dict__[rpyname] = rpyobj
def __fill_rpy2r__(self, on_conflict = 'fail'):
""" Fill the attribute _rpy2r.
- on_conflict: 'fail' or 'warn' (default: 'fail')
"""
assert(on_conflict in ('fail', 'warn'))
name = self.__rname__
(symbol_mapping,
conflicts,
resolutions) = _map_symbols(self._env,
translation = self._translation,
symbol_r2python = self._symbol_r2python,
symbol_check_after = self._symbol_check_after)
msg_prefix = 'Conflict when converting R symbols'+\
' in the package "%s"' % self.__rname__ +\
' to Python symbols: \n-'
exception = LibraryError
_fix_map_symbols(symbol_mapping,
conflicts,
on_conflict,
msg_prefix,
exception)
symbol_mapping.update(resolutions)
reserved_pynames = set(dir(self))
for rpyname, rnames in symbol_mapping.items():
# last paranoid check
if len(rnames) > 1:
raise ValueError('Only one R name should be associated with %s (and we have %s)' % (rpyname, str(rnames)))
rname = rnames[0]
if rpyname in reserved_pynames:
raise LibraryError('The symbol ' + rname +\
' in the package "' + name + '"' +\
' is conflicting with' +\
' a Python object attribute')
self._rpy2r[rpyname] = rname
if (rpyname != rname) and (rname in self._exported_names):
self._exported_names.remove(rname)
self._exported_names.add(rpyname)
try:
riobj = self._env[rname]
except rinterface.RRuntimeError as rre:
warn(str(rre))
rpyobj = conversion.ri2ro(riobj)
if hasattr(rpyobj, '__rname__'):
rpyobj.__rname__ = rname
#FIXME: shouldn't the original R name be also in the __dict__ ?
self.__dict__[rpyname] = rpyobj
def __init__(self, sexp,
init_prm_translate = None,
on_conflict = 'warn',
symbol_r2python = default_symbol_r2python,
symbol_check_after = default_symbol_check_after):
super(SignatureTranslatedFunction, self).__init__(sexp)
if init_prm_translate is None:
prm_translate = OrderedDict()
else:
assert isinstance(init_prm_translate, dict)
prm_translate = init_prm_translate
formals = self.formals()
if formals is not rinterface.NULL:
(symbol_mapping,
conflicts,
resolutions) = _map_symbols(formals.names,
translation = prm_translate,
symbol_r2python = symbol_r2python,
symbol_check_after = symbol_check_after)
msg_prefix = 'Conflict when converting R symbols'+\
' in the function\'s signature:\n- '
exception = ValueError
_fix_map_symbols(symbol_mapping,
conflicts,
on_conflict,
msg_prefix,
exception)
symbol_mapping.update(resolutions)
reserved_pynames = set(dir(self))
prm_translate.update((k, v[0]) for k, v in symbol_mapping.items())
self._prm_translate = prm_translate
if hasattr(sexp, '__rname__'):
self.__rname__ = sexp.__rname__
