[rkward-cvs] rkward/rkward/plugins/00saveload/load/readtable code.php,1.2,1.3 description.xml,1.4,1.5

[Thomas Friedrichsmeier]

Update of /cvsroot/rkward/rkward/rkward/plugins/00saveload/load/readtable
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19518

Modified Files:
	code.php description.xml 
Log Message:
Clean up load data plugin some more

Index: description.xml
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/00saveload/load/readtable/description.xml,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** description.xml	14 Apr 2006 13:36:10 -0000	1.4
--- description.xml	14 Apr 2006 13:47:31 -0000	1.5
***************
*** 27,35 ****
  				<browser size="small" id="file" label="Name of the file" />
  				<input label="Name of the table" id="name" initial="rk.temp.table" size="small"/>
! 				<radio id="header" label="Header" >
! 					<option value="TRUE" label="True" />
! 					<option value="FALSE" label="False" />
! 				</radio>
! 				<radio id="dec" label="Character for decimal values" >
  					<option value="'.'" label="'.'" />
  					<option value="','" label="','" />
--- 27,32 ----
  				<browser size="small" id="file" label="Name of the file" />
  				<input label="Name of the table" id="name" initial="rk.temp.table" size="small"/>
! 				<checkbox id="header" value="TRUE" value_unchecked="FALSE" checked="true" label="First row contains column names"/>
! 				<radio id="dec" label="Decimal character" >
  					<option value="'.'" label="'.'" />
  					<option value="','" label="','" />

Index: code.php
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/00saveload/load/readtable/code.php,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** code.php	14 Apr 2006 13:36:10 -0000	1.2
--- code.php	14 Apr 2006 13:47:31 -0000	1.3
***************
*** 4,9 ****
  	
  	function calculate () {
! ?>
! <? getRK("name") ; ?> <- read.table(file =  "<? getRK("file") ; ?>", header = <? getRK("header") ?>, sep = <? getRK("sep") ?> , dec = <? getRK("dec") ?>, <? # doing row names (what a pity...) 
  if (getRK_val("isrow")=="true") {
  	echo( "row.names = ");
--- 4,8 ----
  	
  	function calculate () {
! getRK("name") ; ?> <- read.table(file =  "<? getRK("file") ; ?>", header = <? getRK("header") ?>, sep = <? getRK("sep") ?> , dec = <? getRK("dec") ?>, <? # doing row names (what a pity...) 
  if (getRK_val("isrow")=="true") {
  	echo( "row.names = ");
***************
*** 23,36 ****
  	function printout () {
  	// produce the output
- ?>
- 
- <?
  	}
  	
  	function cleanup () {
- ?>
- 
- 
- <?
  	}
  ?>
--- 22,28 ----