Revision: 534
http://rpy.svn.sourceforge.net/rpy/?rev=534&view=rev
Author: lgautier
Date: 2008-05-26 11:23:07 -0700 (Mon, 26 May 2008)
Log Message:
-----------
File missing in the previous commit. (note: tests are all broken because of
changes in the import path)
Added Paths:
-----------
branches/rpy_nextgen/rpy/rinterface/__init__.py
Added: branches/rpy_nextgen/rpy/rinterface/__init__.py
===================================================================
--- branches/rpy_nextgen/rpy/rinterface/__init__.py
(rev 0)
+++ branches/rpy_nextgen/rpy/rinterface/__init__.py 2008-05-26 18:23:07 UTC
(rev 534)
@@ -0,0 +1,74 @@
+import os, sys, re
+
+def get_rversion(R_HOME):
+ r_exec = os.path.join(R_HOME, 'bin', 'R')
+ # Twist if Win32
+ if sys.platform == "win32":
+ rp = os.popen3('"'+r_exec+'" --version')[2]
+ else:
+ rp = os.popen('"'+r_exec+'" --version')
+ rversion = rp.readline()
+ #Twist if 'R RHOME' spits out a warning
+ if rversion.startswith("WARNING"):
+ rversion = rp.readline()
+ m = re.match('^R version ([^ ]+) .+$', rversion)
+ if m is None:
+ raise Exception("Error running 'R --version':\n" + rversion)
+ rversion = m.groups()[0]
+ rversion = rversion.split('.')
+ rversion[0] = int(rversion[0])
+ rversion[1] = int(rversion[1])
+ return rversion
+
+try:
+ R_HOME = os.environ["R_HOME"]
+except KeyError:
+ if sys.platform == 'win32':
+ raise Exception("The variable R_HOME is not defined.")
+ R_HOME = os.popen("R RHOME").readlines()
+ #Twist if 'R RHOME' spits out a warning
+ if R_HOME[0].startswith("WARNING"):
+ R_HOME = R_HOME[1]
+ else:
+ R_HOME = R_HOME[0]
+
+rversion = get_rversion(R_HOME)
+r_packversion = '%i%02i%s' %(rversion[0], rversion[1], rversion[2])
+rinterface_package = 'rpy2.rinterface.rinterface_' + r_packversion
+
+
+
+# Win32-specific code copied from RPy-1.x
+# FIXME: isnt't it possible to have conditional code
+# at build time ?
+if sys.platform == 'win32':
+ import win32api
+ os.environ['PATH'] += ';' + os.path.join(R_HOME, 'bin')
+ os.environ['PATH'] += ';' + os.path.join(R_HOME, 'modules')
+ os.environ['PATH'] += ';' + os.path.join(R_HOME, 'lib')
+
+ # Load the R dll using the explicit path
+ # First try the bin dir:
+ Rlib = os.path.join(R_HOME, 'bin', 'R.dll')
+ # Then the lib dir:
+ if not os.path.exists(Rlib):
+ Rlib = os.path.join(R_HOME, 'lib', 'R.dll')
+ # Otherwise fail out!
+ if not os.path.exists(Rlib):
+ raise RuntimeError("Unable to locate R.dll within %s" % R_HOME)
+
+ win32api.LoadLibrary( Rlib )
+
+#sys.path.insert(0, os.path.join(os.path.dirname(__file__),
+# 'rinterface_' + r_packversion))
+#print(sys.path[0])
+
+del(re)
+del(os)
+del(sys)
+
+del(rversion)
+del(r_packversion)
+
+rinterface = __import__(rinterface_package)
+
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
rpy-list mailing list
rpy-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/rpy-list
