def __init__(self, package_name, package_path = None):
self.__package_name = package_name
if package_path is None:
package_path = packages.get_packagepath(package_name)
self.__package_path = package_path
#FIXME: handle the case of missing "aliases.rds"
rpath = StrSexpVector((os.path.join(package_path,
'help',
self.__aliases_info), ))
rds = readRDS(rpath)
rds = StrSexpVector(rds)
class2methods = {}
object2alias = {}
for k, v in itertools.izip(rds.do_slot('names'), rds):
if v.startswith("class."):
classname = v[len("class."):]
if classname in class2methods:
methods = class2methods[classname]
else:
methods = []
methods.append(k.split(',')[0])
class2methods[classname] = methods
else:
object2alias[v] = k
self.class2methods = class2methods
self.object2alias = object2alias
rpath = StrSexpVector((os.path.join(package_path,
'help',
package_name + '.rdx'), ))
self._rdx = conversion.ri2py(readRDS(rpath))
def __init__(self, package_name, package_path=None):
self.__package_name = package_name
if package_path is None:
package_path = packages.get_packagepath(package_name)
self.__package_path = package_path
#FIXME: handle the case of missing "aliases.rds"
rpath = StrSexpVector((os.path.join(package_path, 'help',
self.__aliases_info), ))
rds = readRDS(rpath)
rds = StrSexpVector(rds)
class2methods = {}
object2alias = {}
for k, v in itertools.izip(rds.do_slot('names'), rds):
if v.startswith("class."):
classname = v[len("class."):]
if classname in class2methods:
methods = class2methods[classname]
else:
methods = []
methods.append(k.split(',')[0])
class2methods[classname] = methods
else:
object2alias[v] = k
self.class2methods = class2methods
self.object2alias = object2alias
rpath = StrSexpVector((os.path.join(package_path, 'help',
package_name + '.rdx'), ))
self._rdx = conversion.ri2py(readRDS(rpath))
def __init__(self, package_name, package_path = None):
self.__package_name = package_name
if package_path is None:
package_path = packages.get_packagepath(package_name)
self.__package_path = package_path
rd_meta_dbcon = sqlite3.connect(':memory:')
create_metaRd_db(rd_meta_dbcon)
populate_metaRd_db(package_name, rd_meta_dbcon, package_path = package_path)
self._dbcon = rd_meta_dbcon
path = os.path.join(package_path, 'help', package_name + '.rdx')
self._rdx = readRDS(StrSexpVector((path, )))
def populate_metaRd_db(package_name, dbcon, package_path = None):
""" Populate a database with the meta-information
associated with an R package: version, description, title, and
aliases (those are what the R help system is organised around).
- package_name: a string
- dbcon: a database connection
- package_path: path the R package installation (default: None)
"""
if package_path is None:
package_path = packages.get_packagepath(package_name)
rpath = StrSexpVector((os.path.join(package_path,
__package_meta),))
rds = readRDS(rpath)
desc = rds[rds.do_slot('names').index('DESCRIPTION')]
db_res = dbcon.execute('insert into package values (?,?,?,?)',
(desc[desc.do_slot('names').index('Package')],
desc[desc.do_slot('names').index('Title')],
desc[desc.do_slot('names').index('Version')],
desc[desc.do_slot('names').index('Description')],
))
package_rowid = db_res.lastrowid
rpath = StrSexpVector((os.path.join(package_path,
__rd_meta),))
rds = readRDS(rpath)
FILE_I = rds.do_slot("names").index('File')
NAME_I = rds.do_slot("names").index('Name')
TYPE_I = rds.do_slot("names").index('Type')
TITLE_I = rds.do_slot("names").index('Title')
ENCODING_I = rds.do_slot("names").index('Encoding')
ALIAS_I = rds.do_slot("names").index('Aliases')
for row_i in xrange(len(rds[0])):
db_res = dbcon.execute('insert into rd_meta values (?,?,?,?,?,?,?)',
(row_i,
rds[FILE_I][row_i],
rds[NAME_I][row_i],
rds[TYPE_I][row_i],
rds[TITLE_I][row_i],
rds[ENCODING_I][row_i],
package_rowid))
rd_rowid = db_res.lastrowid
for alias in rds[ALIAS_I][row_i]:
dbcon.execute('insert into rd_alias_meta values (?,?)',
(rd_rowid, alias))
