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

[tfry at users.sourceforge.net]

Revision: 3763
          http://rkward.svn.sourceforge.net/rkward/?rev=3763&view=rev
Author:   tfry
Date:     2011-09-13 06:28:27 +0000 (Tue, 13 Sep 2011)
Log Message:
-----------
Silence warnings when run with R < 2.14.0

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

Modified: trunk/rkward/rkward/rbackend/rpackages/rkwardtests/R/rkwardtests-internal.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkwardtests/R/rkwardtests-internal.R	2011-09-12 19:10:44 UTC (rev 3762)
+++ trunk/rkward/rkward/rbackend/rpackages/rkwardtests/R/rkwardtests-internal.R	2011-09-13 06:28:27 UTC (rev 3763)
@@ -169,7 +169,7 @@
 	} else {
 # 		# Apparently R 2.14.x starts forcing namespaces for all packages, which makes things a bit more difficult
 		if (identical (envir, as.environment ("package:rkward"))) {
-			try (rktest.replace (name, replacement, asNamespace ("rkward"), backup.name))
+			try (rktest.replace (name, replacement, asNamespace ("rkward"), backup.name), silent=TRUE)
 		}
 
 		assign (backup.name, get (name, envir), envir=.rktest.tmp.storage)
@@ -184,7 +184,7 @@
 	if (exists (backup.name, envir=.rktest.tmp.storage, inherits=FALSE)) {
 		assign (name, get (backup.name, envir=.rktest.tmp.storage), envir=envir)
 		if (identical (envir, as.environment ("package:rkward"))) {
-			try (assign (name, get (backup.name, envir=.rktest.tmp.storage), envir=asNamespace ("rkward")))
+			try (assign (name, get (backup.name, envir=.rktest.tmp.storage), envir=asNamespace ("rkward")), silent=TRUE)
 		}
 	} else {
 		message ("No backup available for ", name, ". Already restored?")

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