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

[nono_231 at users.sourceforge.net]

Revision: 1274
          http://svn.sourceforge.net/rkward/?rev=1274&view=rev
Author:   nono_231
Date:     2007-02-01 05:04:56 -0800 (Thu, 01 Feb 2007)

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

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-02-01 11:42:24 UTC (rev 1273)
+++ trunk/rkward/rkward/plugins/plots/barplot.php	2007-02-01 13:04:56 UTC (rev 1274)
@@ -40,7 +40,7 @@
 	<?
 	if (getRK_val ("beside") == "TRUE") {
 	?>
-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))
+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 length(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( if(is.matrix(rk.temp.x)) dim(rk.temp.x) else 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 length(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.