Revision: 561
http://rpy.svn.sourceforge.net/rpy/?rev=561&view=rev
Author: lgautier
Date: 2008-06-10 10:35:25 -0700 (Tue, 10 Jun 2008)
Log Message:
-----------
More "no fifo on win32" problems fixed.
Modified Paths:
--------------
branches/rpy_nextgen/demos/radmin.py
Modified: branches/rpy_nextgen/demos/radmin.py
===================================================================
--- branches/rpy_nextgen/demos/radmin.py 2008-06-10 17:22:41 UTC (rev
560)
+++ branches/rpy_nextgen/demos/radmin.py 2008-06-10 17:35:25 UTC (rev
561)
@@ -2,7 +2,7 @@
A front-end to R's packags, and help/documentation systems
"""
-import os
+import os, sys
import pygtk
pygtk.require('2.0')
import gtk
@@ -103,12 +103,19 @@
packName = self._table.get_value(selection_iter,
self.PACKAGE_I)
self._console.append('library("%s")\n' %packName)
-
- tmp = robjects.baseNameSpaceEnv["fifo"]("")
+
+ if sys.platform == 'win32':
+ tfile = robjects.baseNameSpaceEnv["tempfile"]()
+ tmp = robjects.baseNameSpaceEnv["file"](tfile, open="w")
+ else:
+ tmp = robjects.baseNameSpaceEnv["fifo"]("")
robjects.baseNameSpaceEnv["sink"](tmp)
robjects.baseNameSpaceEnv["library"](packName)
+ if sys.platform == 'win32':
+ robjects.baseNameSpaceEnv["close"](tmp)
+ tmp = robjects.baseNameSpaceEnv["file"](tfile, open="r")
out = robjects.baseNameSpaceEnv["readLines"](tmp)
for line in out:
self._console.append(str(line)+"\n")
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://sourceforge.net/services/buy/index.php
_______________________________________________
rpy-list mailing list
rpy-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/rpy-list
