1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
"""
Package to interface with R, with a focus on interactive usage
(REPL approach to code-writing), although the package will work
in non-interactive settings.
The package aims at being simple rather than exhaustively complete
(rpy2.robjects, or rpy2.rinterface, can be used if needed), providing
a comfortable experience with autocompletion-capable python consoles.
"""
from rpy2.robjects.packages import importr as _importr
from rpy2.robjects.packages import _loaded_namespaces
from rpy2.robjects.vectors import IntVector, FloatVector, ComplexVector
from rpy2.robjects.vectors import Array, Matrix
from rpy2.robjects.vectors import StrVector
from rpy2.robjects.vectors import ListVector, DataFrame
from rpy2.robjects.environments import Environment
from rpy2.robjects import Formula, RS4
from rpy2.robjects import methods
from rpy2.robjects import conversion
from rpy2.robjects.language import eval
import process_revents as revents
class Packages(object):
__instance = None
def __new__(cls):
if cls.__instance is None:
cls.__instance = object.__new__(cls)
return cls.__instance
def __setattr__(self, name, value):
raise AttributeError("Attributes cannot be set. Use 'importr'")
class S4Classes(object):
""" *Very* experimental attempt at getting the S4 classes dynamically
mirrored. """
__instance = None
def __new__(cls):
if cls.__instance is None:
cls.__instance = object.__new__(cls)
return cls.__instance
def __setattr__(self, name, value):
raise AttributeError("Attributes cannot be set. Use 'importr'")
def importr(packname, newname=None):
assert isinstance(packname, str)
packinstance = _importr(packname)
if newname is None:
newname = packname.replace('.', '_')
Packages().__dict__[newname] = packinstance
## Currently too slow for a serious usage: R's introspection
## of S4 classes is not fast enough
# d = {}
# for cn in methods.get_classnames(packname):
# class AutoS4(RS4):
# __metaclass__ = methods.RS4Auto_Type
# __rpackagename__ = packname
# __rname__ = cn
# newcn = cn.replace('.', '_')
# d[newcn] = AutoS4
# S4Classes().__dict__[newname] = d
return packinstance
for packname in _loaded_namespaces():
importr(packname)
packages = Packages()
#classes = S4Classes()
revents.start()
|
