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
|
import os,shutil
import cran_read
R_PLATFORM="ignoreplatform"
def verbose_system(command):
print command
return os.system(command)
#no need to unpack, see src_compile
def pkg_unpack(env,local_repository):
pass
#This function actually creates a binary package (a tarball) from the source package
#this way, we cleanly split up R package installing into a compile and install phase
def src_compile(env,local_repository):
os.putenv('R_PLATFORM',R_PLATFORM) #force predictable package name
os.chdir(env['WORKDIR'])
tarball=os.path.join(env['DISTDIR'],env['A'])
#tmp_target is a dummy directory to make R CMD INSTALL function nicely
tmp_target=os.path.join(env['WORKDIR'],'tmp_install')
os.makedirs(tmp_target)
returnval=verbose_system("R CMD INSTALL --no-test-load --build "+tarball+" -l "+tmp_target)
if returnval:
raise RuntimeError("R build failed")
def src_install(env,local_repository):
package=cran_read.find_package(local_repository,env['PN'])
os.putenv('R_PLATFORM',R_PLATFORM)
#figure out the name of the tarball we generated in src_compile
tarname=env['WORKDIR']+'/'+package.cran_data['package']+'_'+package.cran_data['version']+'_R_'+R_PLATFORM+'.tar.gz' #assume always gzip
#figure out target install dir
r_home=os.getenv('R_HOME')
if len(r_home)==0: #R home isn't set, try to read /etc/env.d/99R
envfile=open('/etc/env.d/99R','r')
for line in envfile:
if line[:len('R_HOME')]=='R_HOME':
r_home=line[line.find('=')+1:].strip()
break
else:
raise RuntimeError("Could not deduce R_HOME")
r_library=env['D']+r_home+"/library"
if not os.path.exists(r_library):
os.makedirs(r_library) #note this is all just in env['D']
#install the binary package
returnval=verbose_system("R CMD INSTALL --debug "+tarname+" -l "+r_library)
if returnval:
raise RuntimeError("R install failed")
try: #should be installed by R already, so remove from image
os.remove(os.path.join(r_library,'R.css'))
except:
pass
#todo install non-HTML help
doc_dir=env['D']+'/usr/share/doc/'+env['PF']
if 'doc' in package.ebuild_vars['iuse'] and 'doc' in env['USE']:
os.makedirs(doc_dir)
os.rename(os.path.join(r_library,package.cran_data['package'],'html'),doc_dir)
#not implemented
else:
shutil.rmtree(os.path.join(r_library,package.cran_data['package'],'html'))
|
GitWeb
