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

[tfry at users.sourceforge.net]

Revision: 1985
          http://rkward.svn.sourceforge.net/rkward/?rev=1985&view=rev
Author:   tfry
Date:     2007-09-24 05:02:19 -0700 (Mon, 24 Sep 2007)

Log Message:
-----------
FOR 0.4.8: Make barplot labels work also when not tabulating
Note: Perhaps labelling should be moved to barplot_options? Rethink after 0.4.8

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-09-24 11:43:31 UTC (rev 1984)
+++ trunk/rkward/rkward/plugins/plots/barplot.php	2007-09-24 12:02:19 UTC (rev 1985)
@@ -34,16 +34,17 @@
 <?
 	if ($tabulate) { ?>
 x <- table(x, exclude=NULL)
-<?if ($names_mode == "rexp") {
-		echo ("\tnames(x) <- " . getRK_val ("names_exp") . "\n");
-	} else if ($names_mode == "custom") {
-		echo ("\tnames(x) <- c (\"" . str_replace (";", "\", \"", trim (getRK_val ("names_custom"))) . "\")\n");
-	} ?>
 <?      } else { ?>
 # barplot is a bit picky about attributes, so we need to convert to vector explicitely
 if(!is.matrix(x)) x <- as.vector(x)
-<? }
+<?	}
 
+	if ($names_mode == "rexp") {
+		echo ("\tnames(x) <- " . getRK_val ("names_exp") . "\n");
+	} else if ($names_mode == "custom") {
+		echo ("\tnames(x) <- c (\"" . str_replace (";", "\", \"", trim (getRK_val ("names_custom"))) . "\")\n");
+	}
+
 	if ($final) { ?>
 rk.header ("Barplot", parameters=list (<? echo ($tabulate_header . $barplot_header); ?>))
 


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