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

[tfry at users.sf.net]

Revision: 4866
          http://sourceforge.net/p/rkward/code/4866
Author:   tfry
Date:     2014-10-02 13:35:20 +0000 (Thu, 02 Oct 2014)
Log Message:
-----------
Don't have fancy quotes interfere with the run again link replacement

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	2014-10-01 16:59:24 UTC (rev 4865)
+++ trunk/rkward/rkward/rbackend/rpackages/rkwardtests/R/rkwardtests-internal.R	2014-10-02 13:35:20 UTC (rev 4866)
@@ -5,6 +5,9 @@
 .rktest.tmp.storage <- new.env()
 
 .rk.rerun.plugin.link.replacement <- function (plugin, settings, label) {
+	op <- options (useFancyQuotes = FALSE)
+	on.exit (options (op))
+
 	.rk.cat.output("<h3>Rerun code:</h3>")
 	.rk.cat.output("<pre>")
 	.rk.cat.output("rk.call.plugin (")