[rkward-cvs] SF.net SVN: rkward:[3861] trunk/rkward/rkward/rbackend/rpackages/rkwarddev

[m-eik at users.sourceforge.net]

Revision: 3861
          http://rkward.svn.sourceforge.net/rkward/?rev=3861&view=rev
Author:   m-eik
Date:     2011-09-29 16:35:59 +0000 (Thu, 29 Sep 2011)
Log Message:
-----------
rkwarddev: changed reaction to existing files in rk.plugin.skeleton()

Modified Paths:
--------------
    trunk/rkward/rkward/rbackend/rpackages/rkwarddev/DESCRIPTION
    trunk/rkward/rkward/rbackend/rpackages/rkwarddev/NAMESPACE
    trunk/rkward/rkward/rbackend/rpackages/rkwarddev/R/rk.plugin.skeleton.R

Modified: trunk/rkward/rkward/rbackend/rpackages/rkwarddev/DESCRIPTION
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkwarddev/DESCRIPTION	2011-09-29 08:55:57 UTC (rev 3860)
+++ trunk/rkward/rkward/rbackend/rpackages/rkwarddev/DESCRIPTION	2011-09-29 16:35:59 UTC (rev 3861)
@@ -17,6 +17,7 @@
 Version: 0.02-2
 Date: 2011-09-29
 Collate:
+    'rk.build.plugin.R'
     'rk-internal.R'
     'rk.JS.array.R'
     'rk.JS.doc.R'

Modified: trunk/rkward/rkward/rbackend/rpackages/rkwarddev/NAMESPACE
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkwarddev/NAMESPACE	2011-09-29 08:55:57 UTC (rev 3860)
+++ trunk/rkward/rkward/rbackend/rpackages/rkwarddev/NAMESPACE	2011-09-29 16:35:59 UTC (rev 3861)
@@ -1,3 +1,4 @@
+export(rk.build.plugin)
 export(rk.JS.array)
 export(rk.JS.doc)
 export(rk.JS.scan)

Modified: trunk/rkward/rkward/rbackend/rpackages/rkwarddev/R/rk.plugin.skeleton.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkwarddev/R/rk.plugin.skeleton.R	2011-09-29 08:55:57 UTC (rev 3860)
+++ trunk/rkward/rkward/rbackend/rpackages/rkwarddev/R/rk.plugin.skeleton.R	2011-09-29 16:35:59 UTC (rev 3861)
@@ -173,55 +173,63 @@
 	} else {}
 
 	## create plugin.xml
-	if("xml" %in% create & isTRUE(checkCreateFiles(plugin.xml))){
-		XML.plugin <- rk.XML.plugin(
-			name=name,
-			label=name.orig,
-			dialog=dialog,
-			wizard=wizard,
-			logic=logic,
-			snippets=snippets,
-			provides=provides,
-			pluginmap=paste("../", name, ".pluginmap", sep=""))
-		cat(pasteXMLTree(XML.plugin, shine=1), file=plugin.xml)
+	if("xml" %in% create){
+		if(isTRUE(checkCreateFiles(plugin.xml))){
+			XML.plugin <- rk.XML.plugin(
+				name=name,
+				label=name.orig,
+				dialog=dialog,
+				wizard=wizard,
+				logic=logic,
+				snippets=snippets,
+				provides=provides,
+				pluginmap=paste("../", name, ".pluginmap", sep=""))
+			cat(pasteXMLTree(XML.plugin, shine=1), file=plugin.xml)
+		} else {}
 		if(isTRUE(edit)){
 			rk.edit.files(plugin.xml, title=plugin.fname.xml, prompt=FALSE)
 		} else {}
 	} else {}
 
 	## create plugin.js
-	if("js" %in% create & isTRUE(checkCreateFiles(plugin.js))){
-		JS.code <- rk.JS.doc(
-			require=dial.require,
-			variables=rk.JS.scan(XML.plugin),
-			results.header=paste(name.orig, " results", sep=""),
-			preprocess=JS.prep,
-			calculate=JS.calc,
-			printout=JS.prnt)
-		cat(JS.code, file=plugin.js)
+	if("js" %in% create){
+		if(isTRUE(checkCreateFiles(plugin.js))){
+			JS.code <- rk.JS.doc(
+				require=dial.require,
+				variables=rk.JS.scan(XML.plugin),
+				results.header=paste(name.orig, " results", sep=""),
+				preprocess=JS.prep,
+				calculate=JS.calc,
+				printout=JS.prnt)
+			cat(JS.code, file=plugin.js)
+		} else {}
 		if(isTRUE(edit)){
 			rk.edit.files(plugin.js, title=plugin.fname.js, prompt=FALSE)
 		} else {}
 	} else {}
 
 	## create plugin.rkh
-	if("rkh" %in% create & isTRUE(checkCreateFiles(plugin.rkh))){
-		rkh.doc <- rk.rkh.doc(settings=rk.rkh.scan(XML.plugin))
-		cat(pasteXMLTree(rkh.doc, shine=1), file=plugin.rkh)
+	if("rkh" %in% create){
+		if(isTRUE(checkCreateFiles(plugin.rkh))){
+			rkh.doc <- rk.rkh.doc(settings=rk.rkh.scan(XML.plugin))
+			cat(pasteXMLTree(rkh.doc, shine=1), file=plugin.rkh)
+		} else {}
 		if(isTRUE(edit)){
 			rk.edit.files(plugin.rkh, title=plugin.fname.rkh, prompt=FALSE)
 		} else {}
 	} else {}
 
 	## create plugin.pluginmap
-	if("pmap" %in% create & isTRUE(checkCreateFiles(plugin.pluginmap))){
-		XML.pluginmap <- rk.XML.pluginmap(
-			name=name.orig,
-			about=about,
-			components=paste(name, ".xml", sep=""),
-			plugin.dir="plugins",
-			hierarchy="analysis")
-		cat(pasteXMLTree(XML.pluginmap, shine=2), file=plugin.pluginmap)
+	if("pmap" %in% create){
+		if(isTRUE(checkCreateFiles(plugin.pluginmap))){
+			XML.pluginmap <- rk.XML.pluginmap(
+				name=name.orig,
+				about=about,
+				components=paste(name, ".xml", sep=""),
+				plugin.dir="plugins",
+				hierarchy="analysis")
+			cat(pasteXMLTree(XML.pluginmap, shine=2), file=plugin.pluginmap)
+		} else {}
 		if(isTRUE(edit)){
 			rk.edit.files(plugin.pluginmap, title=plugin.fname.pluginmap, prompt=FALSE)
 		} else {}

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