[rkward-cvs] SF.net SVN: rkward:[3658] trunk/rkward/rkward/rbackend/rpackages/rkward/R/ internal.R

[tfry at users.sourceforge.net]

Revision: 3658
          http://rkward.svn.sourceforge.net/rkward/?rev=3658&view=rev
Author:   tfry
Date:     2011-06-01 07:54:54 +0000 (Wed, 01 Jun 2011)

Log Message:
-----------
Fix NULL handling in system2

Modified Paths:
--------------
    trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R	2011-05-31 22:57:00 UTC (rev 3657)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R	2011-06-01 07:54:54 UTC (rev 3658)
@@ -483,7 +483,7 @@
 	if (exists ("system2", base::.BaseNamespaceEnv)) {
 		rk.replace.function ("system2", base::.BaseNamespaceEnv,
 			function () {
-				if (stdout != "" || stderr != "") {
+				if ((!is.null (stdout) && stdout == "") || (!is.null (stderr) && stderr == "")) {
 					.Call ("rk.sync.output", 0)
 					on.exit (.Call ("rk.sync.output", 1), TRUE)
 				}


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.