[rkward-cvs] SF.net SVN: rkward:[3905] trunk/rkward/packages/rkwarddev/R/rk.plugin. skeleton.R

[m-eik at users.sourceforge.net]

Revision: 3905
          http://rkward.svn.sourceforge.net/rkward/?rev=3905&view=rev
Author:   m-eik
Date:     2011-10-07 21:33:17 +0000 (Fri, 07 Oct 2011)
Log Message:
-----------
rkwarddev: fixed bug in file scans

Modified Paths:
--------------
    trunk/rkward/packages/rkwarddev/R/rk.plugin.skeleton.R

Modified: trunk/rkward/packages/rkwarddev/R/rk.plugin.skeleton.R
===================================================================
--- trunk/rkward/packages/rkwarddev/R/rk.plugin.skeleton.R	2011-10-07 20:20:07 UTC (rev 3904)
+++ trunk/rkward/packages/rkwarddev/R/rk.plugin.skeleton.R	2011-10-07 21:33:17 UTC (rev 3905)
@@ -230,10 +230,16 @@
 				js[["results.header"]] <- paste(name.orig, " results", sep="")
 			} else {}
 			if("var" %in% scan){
-				js[["variables"]] <- paste(js[["variables"]], rk.JS.scan(XML.plugin), sep="\n")
+				var.scanned <- rk.JS.scan(XML.plugin)
+				if(!is.null(var.scanned)){
+					js[["variables"]] <- paste(js[["variables"]], var.scanned, sep="\n")
+				} else {}
 			} else {}
 			if("saveobj" %in% scan){
-				js[["printout"]] <- paste(js[["printout"]], rk.JS.saveobj(XML.plugin), sep="\n")
+				saveobj.scanned <- rk.JS.saveobj(XML.plugin)
+				if(!is.null(saveobj.scanned)){
+					js[["printout"]] <- paste(js[["printout"]], saveobj.scanned, sep="\n")
+				} else {}
 			} else {}
 			JS.code <- rk.JS.doc(
 				require=js[["require"]],

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