[rkward-cvs] SF.net SVN: rkward:[2628] trunk/rkward/tests

[tfry at users.sourceforge.net]

Revision: 2628
          http://rkward.svn.sourceforge.net/rkward/?rev=2628&view=rev
Author:   tfry
Date:     2009-08-25 13:57:06 +0000 (Tue, 25 Aug 2009)

Log Message:
-----------
Fix the save table test

Modified Paths:
--------------
    trunk/rkward/tests/import_export_plugins/RKTestStandard.write_table.rkcommands.R
    trunk/rkward/tests/import_export_plugins/RKTestStandard.write_table.rkout
    trunk/rkward/tests/import_export_plugins.R

Modified: trunk/rkward/tests/import_export_plugins/RKTestStandard.write_table.rkcommands.R
===================================================================
--- trunk/rkward/tests/import_export_plugins/RKTestStandard.write_table.rkcommands.R	2009-08-25 13:45:31 UTC (rev 2627)
+++ trunk/rkward/tests/import_export_plugins/RKTestStandard.write_table.rkcommands.R	2009-08-25 13:57:06 UTC (rev 2628)
@@ -1,10 +1,10 @@
 local({
 ## Prepare
 ## Compute
-write.table ( x =  as.environment ("package:datasets")$"women" , file =  "data" , append =  FALSE  ,quote = TRUE ,  sep = '\t' , eol = "\n" , na = "NA" ,  dec = '.' , row.names =  FALSE ,  col.names =  TRUE , qmethod=  'escape' ) 
+write.table ( x =  women , file =  "data" , append =  FALSE  ,quote = TRUE ,  sep = '\t' , eol = "\n" , na = "NA" ,  dec = '.' , row.names =  FALSE ,  col.names =  TRUE , qmethod=  'escape' ) 
 ## Print result
 rk.header("Write as table", parameters=list("File", "data",
-	"Data", "as.environment (\"package:datasets\")$\"women\""))
+	"Data", "women"))
 })
-.rk.rerun.plugin.link(plugin="rkward::save_table", settings="append.state=FALSE\ncolumns.string=TRUE\ndata.available=as.environment (\\\"package:datasets\\\")$\\\"women\\\"\ndec.string='.'\neol.text=\\\\n\nfile.selection=data\nna.text=NA\nqmethod.string='escape'\nquote.state=TRUE\nrows.string=FALSE\nsep.string='\\\\t'", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::save_table", settings="append.state=FALSE\ncolumns.string=TRUE\ndata.available=women\ndec.string='.'\neol.text=\\\\n\nfile.selection=data\nna.text=NA\nqmethod.string='escape'\nquote.state=TRUE\nrows.string=FALSE\nsep.string='\\\\t'", label="Run again")
 .rk.make.hr()

Modified: trunk/rkward/tests/import_export_plugins/RKTestStandard.write_table.rkout
===================================================================
--- trunk/rkward/tests/import_export_plugins/RKTestStandard.write_table.rkout	2009-08-25 13:45:31 UTC (rev 2627)
+++ trunk/rkward/tests/import_export_plugins/RKTestStandard.write_table.rkout	2009-08-25 13:57:06 UTC (rev 2628)
@@ -1,7 +1,7 @@
 <h1>Write as table</h1>
 <h2>Parameters</h2>
 <ul><li>File: data</li>
-<li>Data: as.environment ("package:datasets")$"women"</li>
+<li>Data: women</li>
 </ul>
 DATE<br>
 <p class='character'>"height"	"weight"</p><p class='character'>58	115</p><p class='character'>59	117</p><p class='character'>60	120</p><p class='character'>61	123</p><p class='character'>62	126</p><p class='character'>63	129</p><p class='character'>64	132</p><p class='character'>65	135</p><p class='character'>66	139</p><p class='character'>67	142</p><p class='character'>68	146</p><p class='character'>69	150</p><p class='character'>70	154</p><p class='character'>71	159</p><p class='character'>72	164</p>
\ No newline at end of file

Modified: trunk/rkward/tests/import_export_plugins.R
===================================================================
--- trunk/rkward/tests/import_export_plugins.R	2009-08-25 13:45:31 UTC (rev 2627)
+++ trunk/rkward/tests/import_export_plugins.R	2009-08-25 13:57:06 UTC (rev 2628)
@@ -98,6 +98,9 @@
 			for (line in x) rk.print (line)
 		}),
 		new ("RKTest", id="write_table", call=function () {
+			assign ("women", datasets::women, globalenv())
+			rk.sync.global()
+
 			rk.call.plugin ("rkward::save_table", append.state="FALSE", columns.string="TRUE", data.available="women", dec.string="'.'", eol.text="\\n", file.selection="data", na.text="NA", qmethod.string="'escape'", quote.state="TRUE", rows.string="FALSE", sep.string="'\\t'", submit.mode="submit")
 
 			x <- readLines ("data")


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