[Sciviews-commits] r517 - pkg/svMisc/R

[noreply at r-forge.r-project.org]

Author: phgrosjean
Date: 2013-01-27 18:57:21 +0100 (Sun, 27 Jan 2013)
New Revision: 517

Modified:
   pkg/svMisc/R/captureAll.R
Log:
captureAll() now tries to print the returned value silently

Modified: pkg/svMisc/R/captureAll.R
===================================================================
--- pkg/svMisc/R/captureAll.R	2013-01-27 17:47:52 UTC (rev 516)
+++ pkg/svMisc/R/captureAll.R	2013-01-27 17:57:21 UTC (rev 517)
@@ -77,15 +77,15 @@
 			## => unsplit temporarily, and print twice instead!
 			#print(res$value)
 			
-			if (split == TRUE) {
+			if (split) {
 				sink(type = "message")
 				sink(type = "output")
 				## Print first to the console
-				try(print(res$value))
+				try(print(res$value), silent = TRUE)
 				sink(tconn, type = "message")
 				sink(tconn, type = "output", split = FALSE)
 				## Print a second time to the connection
-				try(print(res$value))
+				try(print(res$value), silent = TRUE)
 				## Resink with split = TRUE
 				sink(type = "message")
 				sink(type = "output")