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

[tfry at users.sourceforge.net]

Revision: 2753
          http://rkward.svn.sourceforge.net/rkward/?rev=2753&view=rev
Author:   tfry
Date:     2010-02-25 21:01:26 +0000 (Thu, 25 Feb 2010)

Log Message:
-----------
Add test for stata plugin

Modified Paths:
--------------
    trunk/rkward/tests/import_export_plugins.R

Added Paths:
-----------
    trunk/rkward/tests/import_export_plugins/RKTestStandard.import_stata.rkcommands.R
    trunk/rkward/tests/import_export_plugins/RKTestStandard.import_stata.rkout
    trunk/rkward/tests/import_export_plugins_testfile.dta

Added: trunk/rkward/tests/import_export_plugins/RKTestStandard.import_stata.rkcommands.R
===================================================================
--- trunk/rkward/tests/import_export_plugins/RKTestStandard.import_stata.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/import_export_plugins/RKTestStandard.import_stata.rkcommands.R	2010-02-25 21:01:26 UTC (rev 2753)
@@ -0,0 +1,24 @@
+local({
+## Prepare
+require (foreign)
+## Compute
+data <- read.dta ("../import_export_plugins_testfile.dta", convert.dates=TRUE, convert.factors=TRUE, missing.type=FALSE, convert.underscore=FALSE)
+
+# set variable labels for use in RKWard
+labels <- attr (data, "var.labels")
+if (!is.null (labels)) {
+        for (i in 1:length (labels)) {
+                col <- make.names (attr (data, "names")[i] )
+                if (!is.null (col)) {
+                        rk.set.label (data[[col]], labels[i])
+                }
+        }
+}
+
+my.stata.data <<- data		# assign to globalenv()
+## Print result
+rk.header("Import Stata File", parameters=list("File", "../import_export_plugins_testfile.dta",
+	"Imported to", "my.stata.data"))
+})
+.rk.rerun.plugin.link(plugin="rkward::import_stata", settings="convert_dates.state=1\nconvert_factors.state=1\nconvert_underscore.state=0\ndoedit.state=0\nfile.selection=../import_export_plugins_testfile.dta\nmissing_type.state=0\nsaveto.selection=my.stata.data", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/import_export_plugins/RKTestStandard.import_stata.rkout
===================================================================
--- trunk/rkward/tests/import_export_plugins/RKTestStandard.import_stata.rkout	                        (rev 0)
+++ trunk/rkward/tests/import_export_plugins/RKTestStandard.import_stata.rkout	2010-02-25 21:01:26 UTC (rev 2753)
@@ -0,0 +1,32 @@
+<h1>Import Stata File</h1>
+<h2>Parameters</h2>
+<ul><li>File: ../import_export_plugins_testfile.dta</li>
+<li>Imported to: my.stata.data</li>
+</ul>
+DATE<br>
+
+<p align= center >
+<table cellspacing=0 border=1>
+<caption align=bottom class=captiondataframe></caption>
+<tr><td>
+	<table border=0 class=dataframe>
+	<tbody> 
+	<tr class= firstline > 
+		<th>   </th>
+		<th>testvar  </th>
+		<th>special\xE4\xF6\xFC\xDF\xE8chars  </th>
+		<th>strings</th> 
+	</tr> <tr> <td class=firstcolumn>1</td><td class=cellinside> 1</td><td class=cellinside>value1</td><td class=cellinside>a string</td></tr>
+ <tr> <td class=firstcolumn>2</td><td class=cellinside> 2</td><td class=cellinside>value2</td><td class=cellinside>another</td></tr>
+ <tr> <td class=firstcolumn>3</td><td class=cellinside> 3</td><td class=cellinside>value\xF6\xE4\xFC3</td><td class=cellinside>text</td></tr>
+ <tr> <td class=firstcolumn>4</td><td class=cellinside> 4</td><td class=cellinside> </td><td class=cellinside>test</td></tr>
+ <tr> <td class=firstcolumn>5</td><td class=cellinside> </td><td class=cellinside>value1</td><td class=cellinside>\xE4\xF6\xFC\xDF</td></tr>
+ <tr> <td class=firstcolumn>6</td><td class=cellinside> 6</td><td class=cellinside>value2</td><td class=cellinside>$\x80</td></tr>
+ <tr> <td class=firstcolumn>7</td><td class=cellinside> 7</td><td class=cellinside>value\xF6\xE4\xFC3</td><td class=cellinside> </td></tr>
+ <tr> <td class=firstcolumn>8</td><td class=cellinside> 8</td><td class=cellinside> </td><td class=cellinside>last</td></tr>
+ 
+	</tbody>
+</table>
+ </td></table>
+ <br>
+<p class='character'>var (Variable label 1)</p><p class='character'>var (Variable label 2 with some special chars: \xE4\xF6\xFC#+߀)</p><p class='character'>var ()</p>
\ No newline at end of file

Modified: trunk/rkward/tests/import_export_plugins.R
===================================================================
--- trunk/rkward/tests/import_export_plugins.R	2010-02-21 19:40:15 UTC (rev 2752)
+++ trunk/rkward/tests/import_export_plugins.R	2010-02-25 21:01:26 UTC (rev 2753)
@@ -60,6 +60,13 @@
 			# WARNING: TODO: We don't use the value labels of the third
 			# variable, yet.
 		}, libraries=c("foreign")),
+		new ("RKTest", id="import_stata", call=function () {
+			rk.call.plugin ("rkward::import_stata", convert_dates.state="1", convert_factors.state="1", convert_underscore.state="0", doedit.state="0", file.selection="../import_export_plugins_testfile.dta", missing_type.state="0", saveto.selection="my.stata.data", submit.mode="submit")
+
+			# In order to check, whether the import was correct
+			rk.print (my.stata.data)
+			for (var in my.stata.data) rk.print (rk.get.description(var))
+		}, libraries=c("foreign")),
 		new ("RKTest", id="load_source", call=function () {
 			stopifnot (!exists ("testx", globalenv ()))
 

Added: trunk/rkward/tests/import_export_plugins_testfile.dta
===================================================================
(Binary files differ)


Property changes on: trunk/rkward/tests/import_export_plugins_testfile.dta
___________________________________________________________________
Added: svn:mime-type
   + application/octet-stream


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