[rkward-cvs] SF.net SVN: rkward: [1271] trunk/rkward/rkward/plugins

[tfry at users.sourceforge.net]

Revision: 1271
          http://svn.sourceforge.net/rkward/?rev=1271&view=rev
Author:   tfry
Date:     2007-02-01 01:48:31 -0800 (Thu, 01 Feb 2007)

Log Message:
-----------
Fix problem with plot_options ylim

Modified Paths:
--------------
    trunk/rkward/rkward/plugins/00saveload/import/import_spss.php
    trunk/rkward/rkward/plugins/plots/plot_options.php

Modified: trunk/rkward/rkward/plugins/00saveload/import/import_spss.php
===================================================================
--- trunk/rkward/rkward/plugins/00saveload/import/import_spss.php	2007-01-31 22:48:47 UTC (rev 1270)
+++ trunk/rkward/rkward/plugins/00saveload/import/import_spss.php	2007-02-01 09:48:31 UTC (rev 1271)
@@ -20,7 +20,9 @@
 ?>
 <? echo ($object); ?> <- read.spss ("<? getRK ("file"); ?>"<? echo ($data_frame_opt); echo ($labels_opt); ?>)
 
-<?	if ($data_frame) { ?>
+<?	if ($data_frame) { 
+// actually, this should not only happen for a data.frame (the alternative is a list), but maybe according to an option (or always)
+?>
 # set variable labels for use in RKWard
 rk.temp.labels <- attr (<? echo ($object); ?>, "variable.labels");
 if (!is.null (rk.temp.labels)) {

Modified: trunk/rkward/rkward/plugins/plots/plot_options.php
===================================================================
--- trunk/rkward/rkward/plugins/plots/plot_options.php	2007-01-31 22:48:47 UTC (rev 1270)
+++ trunk/rkward/rkward/plugins/plots/plot_options.php	2007-02-01 09:48:31 UTC (rev 1271)
@@ -70,7 +70,7 @@
 	if (($yminvalue != "") || ($ymaxvalue != "")) {
 		$ylim = ", ylim=c (";
 		if ($yminvalue == "") $ylim .= "min (" . $yvar . ")";
-		else $ylim .= $yminvalue . ", ";
+		else $ylim .= $yminvalue;
 		$ylim .= ", ";
 		if ($ymaxvalue == "") $ylim .= "max (" . $yvar . ")";
 		else $ylim .= $ymaxvalue;


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