[rkward-cvs] SF.net SVN: rkward: [1261] trunk/rkward/rkward/plugins/plots/barplot.php

[nono_231 at users.sourceforge.net]

Revision: 1261
          http://svn.sourceforge.net/rkward/?rev=1261&view=rev
Author:   nono_231
Date:     2007-01-31 11:26:34 -0800 (Wed, 31 Jan 2007)

Log Message:
-----------
Solved the problem with colors with matrices

Modified Paths:
--------------
    trunk/rkward/rkward/plugins/plots/barplot.php

Modified: trunk/rkward/rkward/plugins/plots/barplot.php
===================================================================
--- trunk/rkward/rkward/plugins/plots/barplot.php	2007-01-31 18:27:45 UTC (rev 1260)
+++ trunk/rkward/rkward/plugins/plots/barplot.php	2007-01-31 19:26:34 UTC (rev 1261)
@@ -40,7 +40,7 @@
 	<?
 	if (getRK_val ("beside") == "TRUE") {
 	?>
-rk.temp.barplot <-barplot((rk.temp.x)<? if (getRK_val ("rainbow")=="TRUE") { ?>, col=rainbow(rk.temp.x) <? } ?>, beside=<? getRK ("beside"); ?>, legend.text=<? getRK ("legend"); ?>,  ylim = range(rk.temp.x) * c(0, 1.2))
+rk.temp.barplot <-barplot((rk.temp.x)<? if (getRK_val ("rainbow")=="TRUE") { ?>, col=rainbow( if(is.matrix(rk.temp.x)) dim(rk.temp.x) else rk.temp.x) <? } ?>, beside=<? getRK ("beside"); ?>, legend.text=<? getRK ("legend"); ?>,  ylim = range(rk.temp.x) * c(0, 1.2))
 	<?
 	}
 	if ((getRK_val ("beside") == "TRUE") && getRK_val ("labels")=="TRUE") { 
@@ -49,7 +49,7 @@
 	<? } 
 	if (getRK_val ("beside") == "FALSE") { 
 	?> 
-barplot((rk.temp.x)<? if (getRK_val ("rainbow")=="TRUE") { ?>, col=rainbow(rk.temp.x) <? } ?>, legend.text=<? getRK ("legend"); ?>)
+barplot((rk.temp.x)<? if (getRK_val ("rainbow")=="TRUE") { ?>, col=rainbow( if(is.matrix(rk.temp.x)) dim(rk.temp.x) else rk.temp.x) <? } ?>, legend.text=<? getRK ("legend"); ?>)
 	<? } 
 	?>
 })


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