def _dict_ridentifiedobject(obj):
if hasattr(obj, '__rname__') and obj.__rname__ is not None:
env = wherefrom(obj.__rname__)
try:
origin = env.do_slot('name')[0]
except LookupError:
origin = 'package:base ?'
else:
origin = '???'
d = {'clsname': type(obj).__name__, 'origin': origin, 'obj': obj}
return d
def call_Rpackage(call="function", designation="aov"):
if call == "function":
package = rpacks.wherefrom(designation).do_slot("name")[0].split(
":")[1]
call = rpacks.importr(package,
signature_translation=True,
suppress_messages=True)
elif call == "package":
call = rpacks.importr(designation,
signature_translation=True,
suppress_messages=True)
return call
def __repr__(self):
env_name = ""
try:
env = rpacks.wherefrom(self.name)
env_name = env.do_slot('name')[0]
except:
pass
vars = [self.name]
if self.title:
title = "Title:\n\n{0}".format(self.title)
vars.append(title)
if self.description:
desc = "Description:\n\n{0}".format(self.description)
vars.append(desc)
if env_name:
envs = "<{0}>".format(env_name)
vars.append(envs)
return "\n\n".join(vars)
def __repr__(self):
env_name = ""
try:
env = rpacks.wherefrom(self.name)
env_name = env.do_slot('name')[0]
except:
pass
vars = ["RFunction: {0}".format(self.name)]
if self.title:
title = "Title:\n\n{0}".format(self.title)
vars.append(title)
if self.description:
desc = "Description:\n\n{0}".format(self.description)
vars.append(desc)
if env_name:
envs = "<{0}>".format(env_name)
vars.append(envs)
return "\n\n".join(vars)
def where(self, obj):
env = Rpacks.wherefrom(obj)
try:
return env.do_slot('name')[0]
except:
return 'Not Found'