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'