[rkward/releases/0.6.5] /: Fixes for test failures in import export plugins, due to KUrlRequester returning absolute paths, now.

Thomas Friedrichsmeier thomas.friedrichsmeier at ruhr-uni-bochum.de
Wed Mar 23 16:56:35 UTC 2016


Git commit 665e857f18e49cabc21b39b8476d11ae15709086 by Thomas Friedrichsmeier.
Committed on 23/03/2016 at 16:54.
Pushed by tfry into branch 'releases/0.6.5'.

Fixes for test failures in import export plugins, due to KUrlRequester returning absolute paths, now.

These had been committed, earlier (for 0.6.4), but it seems I have messed up the merge in commit 4e73776e9d684c54560b80bb1561393afe521ed5 .

M  +1    -1    rkward/rbackend/rpackages/rkward/R/ver.R
M  +13   -0    rkward/rbackend/rpackages/rkwardtests/R/rkwardtests-internal.R
M  +1    -1    tests/distributions/weibull_probabilities.rkcommands.R
M  +1    -1    tests/distributions/weibull_probabilities.rkout
M  +1    -1    tests/distributions/wilcoxon_probabilities.rkcommands.R
M  +1    -1    tests/distributions/wilcoxon_probabilities.rkout
M  +14   -15   tests/import_export_plugins.R
M  +2    -2    tests/import_export_plugins/import_csv.rkcommands.R
M  +1    -1    tests/import_export_plugins/import_csv.rkout
M  +1    -1    tests/import_export_plugins/import_csv_overwrite.messages.txt
M  +2    -2    tests/import_export_plugins/import_spss.rkcommands.R
M  +2    -2    tests/import_export_plugins/import_stata.rkcommands.R
M  +1    -1    tests/import_export_plugins/import_stata.rkout
M  +2    -2    tests/import_export_plugins/load_r_object.rkcommands.R
M  +1    -1    tests/import_export_plugins/load_r_object.rkout
M  +4    -4    tests/import_export_plugins/load_source.rkcommands.R
M  +2    -2    tests/import_export_plugins/load_source.rkout
M  +1    -1    tests/import_export_plugins/package_skeleton.messages.txt
M  +2    -2    tests/import_export_plugins/package_skeleton.rkcommands.R
M  +1    -1    tests/import_export_plugins/package_skeleton.rkout
M  +4    -4    tests/import_export_plugins/save_r_object.rkcommands.R
M  +2    -2    tests/import_export_plugins/save_r_object.rkout
M  +2    -2    tests/import_export_plugins/setworkdir.rkcommands.R
M  +2    -2    tests/import_export_plugins/write_csv.rkcommands.R
M  +1    -1    tests/import_export_plugins/write_csv.rkout
M  +2    -2    tests/import_export_plugins/write_vector_matrix.rkcommands.R
M  +1    -1    tests/import_export_plugins/write_vector_matrix.rkout

http://commits.kde.org/rkward/665e857f18e49cabc21b39b8476d11ae15709086

diff --git a/rkward/rbackend/rpackages/rkward/R/ver.R b/rkward/rbackend/rpackages/rkward/R/ver.R
index ed6490b..19b01d7 100644
--- a/rkward/rbackend/rpackages/rkward/R/ver.R
+++ b/rkward/rbackend/rpackages/rkward/R/ver.R
@@ -3,4 +3,4 @@
 # rkward/SetVersionNumber.cmake
 
 #' @export
-".rk.app.version" <- "0.6.4z+0.6.5+devel1"
+".rk.app.version" <- "0.6.4z+0.6.5+pre1"
diff --git a/rkward/rbackend/rpackages/rkwardtests/R/rkwardtests-internal.R b/rkward/rbackend/rpackages/rkwardtests/R/rkwardtests-internal.R
index 0888e0e..153d179 100644
--- a/rkward/rbackend/rpackages/rkwardtests/R/rkwardtests-internal.R
+++ b/rkward/rbackend/rpackages/rkwardtests/R/rkwardtests-internal.R
@@ -158,6 +158,10 @@ rktest.runRKTest <- function (test, standard.path, suite.id) {
 		else result at error <- "no"
 	}
 
+	rktest.cleanTestFile (output_file)
+	rktest.cleanTestFile (code_file)
+	rktest.cleanTestFile (message_file)
+
 	result at output_match = rktest.compare.against.standard (output_file, standard.path, test at fuzzy_output)
 	if (result at output_match == "MISMATCH") passed <- FALSE
 	result at message_match = rktest.compare.against.standard (message_file, standard.path)
@@ -170,6 +174,15 @@ rktest.runRKTest <- function (test, standard.path, suite.id) {
 	result
 }
 
+# Make replacements to stabilize comparison. Currently strips tempdir path.
+rktest.cleanTestFile <- function (filename) {
+	if (file.exists (filename)) {
+		raw <- readLines (filename)
+		cleaned <- gsub (getwd (), "PATH", raw, fixed=TRUE)
+		writeLines (cleaned, filename)
+	}
+}
+
 rktest.cleanRKTestSuite <- function (suite) {
       # kept for backwards compatibility ;-)
       rktest.removeTempSuiteDir(suite at id)
diff --git a/tests/distributions/weibull_probabilities.rkcommands.R b/tests/distributions/weibull_probabilities.rkcommands.R
index f26364b..303b20d 100644
--- a/tests/distributions/weibull_probabilities.rkcommands.R
+++ b/tests/distributions/weibull_probabilities.rkcommands.R
@@ -3,7 +3,7 @@ local({
 q <- seq (0, qweibull (.99, shape=1.0, scale=1.0), length.out=20)
 p <- pweibull (q, shape=1.0, scale=1.0)
 ## Print result
-rk.header ("Weilbull distribution", parameters=list("Shape"="1.0",
+rk.header ("Weibull distribution", parameters=list("Shape"="1.0",
 	"Scale"="1.0",
 	"Tail"="Lower tail: P[X ≤ x]"))
 rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
diff --git a/tests/distributions/weibull_probabilities.rkout b/tests/distributions/weibull_probabilities.rkout
index cad90cb..f70b6ee 100644
--- a/tests/distributions/weibull_probabilities.rkout
+++ b/tests/distributions/weibull_probabilities.rkout
@@ -1,4 +1,4 @@
-<h1>Weilbull distribution</h1>
+<h1>Weibull distribution</h1>
 <h2>Parameters</h2>
 <ul><li>Shape: 1.0</li>
 <li>Scale: 1.0</li>
diff --git a/tests/distributions/wilcoxon_probabilities.rkcommands.R b/tests/distributions/wilcoxon_probabilities.rkcommands.R
index 2579fe0..19892cc 100644
--- a/tests/distributions/wilcoxon_probabilities.rkcommands.R
+++ b/tests/distributions/wilcoxon_probabilities.rkcommands.R
@@ -3,7 +3,7 @@ local({
 q <- seq.int (0, 25, by=2)
 p <- pwilcox (q, m=5, n=5)
 ## Print result
-rk.header ("Wilcox Rank Sum distribution", parameters=list("m (Numbers of observations in the first sample)"="5",
+rk.header ("Wilcoxon Rank Sum distribution", parameters=list("m (Numbers of observations in the first sample)"="5",
 	"n (Numbers of observations in the second sample)"="5",
 	"Tail"="Lower tail: P[X ≤ x]"))
 rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
diff --git a/tests/distributions/wilcoxon_probabilities.rkout b/tests/distributions/wilcoxon_probabilities.rkout
index 627d1e9..9f2fd8b 100644
--- a/tests/distributions/wilcoxon_probabilities.rkout
+++ b/tests/distributions/wilcoxon_probabilities.rkout
@@ -1,4 +1,4 @@
-<h1>Wilcox Rank Sum distribution</h1>
+<h1>Wilcoxon Rank Sum distribution</h1>
 <h2>Parameters</h2>
 <ul><li>m (Numbers of observations in the first sample): 5</li>
 <li>n (Numbers of observations in the second sample): 5</li>
diff --git a/tests/import_export_plugins.R b/tests/import_export_plugins.R
index 4444545..60b0d0c 100644
--- a/tests/import_export_plugins.R
+++ b/tests/import_export_plugins.R
@@ -14,14 +14,14 @@ suite <- new ("RKTestSuite", id="import_export_plugins",
 		new ("RKTest", id="load_r_object", call=function () {
 			save (women.data, file="women.RData")
 
-			rk.call.plugin ("rkward::load_r_object", file.selection="women.RData", envir.active="0", submit.mode="submit")
+			rk.call.plugin ("rkward::load_r_object", file.selection=file.path (getwd(), "women.RData"), envir.active="0", submit.mode="submit")
 
 			stopifnot (all.equal (.GlobalEnv$women.data, datasets::women))
 		}),
 		new ("RKTest", id="import_csv", call=function () {
 			write.csv (women.data, file="women.csv")
 
-			rk.call.plugin ("rkward::import_csv", allow_escapes.state="", blanklinesskip.state="TRUE", checkname.state="TRUE", colclass.string="", colname.string="", dec.string="'.'", doedit.state="0", file.selection="women.csv", flush.state="", na.text="NA", name.objectname="women", nrows.text="-1", quick.string="csv", quote.string="'\\\"'", sep.string="','", skip.text="0", strings_as_factors.string="", stripwhite.state="FALSE", rowname.string="rowcol", nomrow.text="1", submit.mode="submit")
+			rk.call.plugin ("rkward::import_csv", allow_escapes.state="0", blanklinesskip.state="1", checkname.state="1", colclass.string="", colname.string="", commentchar.text="", dec.string="'.'", doedit.state="0", file.selection=file.path (getwd(), "women.csv"), fill.state="1", flush.state="0", header.state="1", na.text="NA", name.objectname="women", name.parent=".GlobalEnv", nomrow.text="1", nrows.text="-1", quick.string="csv", quote.string="'\\\"'", rowname.string="rowcol", sep.string="','", skip.text="0", strings_as_factors.string="", stripwhite.state="0", submit.mode="submit")
 
 			stopifnot (all.equal (.GlobalEnv$women, datasets::women))
 		}),
@@ -30,22 +30,21 @@ suite <- new ("RKTestSuite", id="import_export_plugins",
 			rk.sync.global ()
 
 			# this one is expected to fail, as it would overwrite the existing "women" in globalenv()
-			rk.call.plugin ("rkward::import_csv", file.selection="women.csv", name.objectname="women", submit.mode="submit")
+			rk.call.plugin ("rkward::import_csv", allow_escapes.state="0", blanklinesskip.state="1", checkname.state="1", colclass.string="", colname.string="", commentchar.text="", dec.string="'.'", doedit.state="0", file.selection=file.path (getwd(), "women.csv"), fill.state="1", flush.state="0", header.state="1", na.text="NA", name.objectname="women", name.parent=".GlobalEnv", nomrow.text="1", nrows.text="-1", quick.string="csv", quote.string="'\\\"'", rowname.string="rowcol", sep.string="','", skip.text="0", strings_as_factors.string="", stripwhite.state="0", submit.mode="submit")
 		}, expect_error=TRUE),
 		new ("RKTest", id="setworkdir", call=function () {
 			oldwd <- getwd ()
 			on.exit (setwd (oldwd))
 
-			# we can only use relative paths, here, to make sure the tests produce identical commands on all systems
-			rk.call.plugin ("rkward::setworkdir", dir.selection="..", submit.mode="submit")
+			rk.call.plugin ("rkward::setworkdir", dir.selection=file.path (getwd(), ".."), submit.mode="submit")
 			stopifnot (oldwd != getwd ())
 
-			rk.call.plugin ("rkward::setworkdir", dir.selection="import_export_plugins", submit.mode="submit")
+			rk.call.plugin ("rkward::setworkdir", dir.selection=file.path (getwd(), "import_export_plugins"), submit.mode="submit")
 			stopifnot (oldwd == getwd ())
 		}),
 		new ("RKTest", id="import_spss", call=function () {
 # NOTE: read.spss currently failing when run in non iso8859-1 locale. See http://r.789695.n4.nabble.com/read-spss-locale-and-encodings-td881149.html
-			rk.call.plugin ("rkward::import_spss", convert_var_labels.state="1", data_frame.state="1", do_locale_conversion.state="0", doedit.state="0", file.selection="import_export_plugins_testfile.sav", labels_limit.real="1.00", saveto.objectname="my.spss.data", trim_labels.state="0", use_labels.state="1", submit.mode="submit")
+			rk.call.plugin ("rkward::import_spss", convert_var_labels.state="1", data_frame.state="1", do_locale_conversion.state="0", doedit.state="0", file.selection=file.path (getwd(), "import_export_plugins_testfile.sav"), labels_limit.real="1.00", saveto.objectname="my.spss.data", trim_labels.state="0", use_labels.state="1", submit.mode="submit")
 
 			# In order to check, whether the import was correct
 			rk.print (my.spss.data)
@@ -55,7 +54,7 @@ suite <- new ("RKTestSuite", id="import_export_plugins",
 			# variable, yet.
 		}, libraries=c("foreign"), files=c("../import_export_plugins_testfile.sav")),
 		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", do_locale_conversion.state="1", doedit.state="0", encoding.string="ISO8859-1", file.selection="import_export_plugins_testfile.dta", missing_type.state="0", saveto.objectname="my.stata.data", saveto.parent=".GlobalEnv", submit.mode="submit")
+			rk.call.plugin ("rkward::import_stata", convert_dates.state="1", convert_factors.state="1", convert_underscore.state="0", do_locale_conversion.state="1", doedit.state="0", encoding.string="ISO8859-1", file.selection=file.path (getwd(), "import_export_plugins_testfile.dta"), missing_type.state="0", saveto.objectname="my.stata.data", saveto.parent=".GlobalEnv", submit.mode="submit")
 
 			# In order to check, whether the import was correct
 			rk.print (my.stata.data)
@@ -77,11 +76,11 @@ suite <- new ("RKTestSuite", id="import_export_plugins",
 
 			cat ("testx <- c (20:30)\nprint (\"ok\")\n", file="source.R")
 
-			rk.call.plugin ("rkward::load_source", chdir.state="FALSE", echo.state="0", file.selection="source.R", local.state="TRUE", printeval.state="FALSE", submit.mode="submit")
+			rk.call.plugin ("rkward::load_source", chdir.state="FALSE", echo.state="0", file.selection=file.path (getwd(), "source.R"), local.state="TRUE", printeval.state="FALSE", submit.mode="submit")
 
 			stopifnot (!exists ("testx", globalenv ()))
 
-			rk.call.plugin ("rkward::load_source", chdir.state="FALSE", echo.state="1", file.selection="source.R", local.state="FALSE", printeval.state="FALSE", submit.mode="submit")
+			rk.call.plugin ("rkward::load_source", chdir.state="FALSE", echo.state="1", file.selection=file.path (getwd(), "source.R"), local.state="FALSE", printeval.state="FALSE", submit.mode="submit")
 
 			stopifnot (globalenv()$testx == c (20:30))
 		}),
@@ -91,8 +90,8 @@ suite <- new ("RKTestSuite", id="import_export_plugins",
 			assign ("testy", datasets::volcano, envir=globalenv())
 			rk.sync.global()
 
-			rk.call.plugin ("rkward::save_r", ascii.state="true", complevel.real="6.00", compress.string="gzip", data.available="testx", file.selection="x.RData", submit.mode="submit")
-			rk.call.plugin ("rkward::save_r", ascii.state="", compress.string="xz", complevel.real="9.00", xzextreme.state="true", data.available="testy", file.selection="y.RData", submit.mode="submit")
+			rk.call.plugin ("rkward::save_r", ascii.state="true", complevel.real="6.00", compress.string="gzip", data.available="testx", file.selection=file.path (getwd(), "x.RData"), submit.mode="submit")
+			rk.call.plugin ("rkward::save_r", ascii.state="", compress.string="xz", complevel.real="9.00", xzextreme.state="true", data.available="testy", file.selection=file.path (getwd(), "y.RData"), submit.mode="submit")
 
 			rm (testx, testy, envir=globalenv())
 			load ("x.RData")
@@ -104,7 +103,7 @@ suite <- new ("RKTestSuite", id="import_export_plugins",
 			assign ("testx", c (1:10), globalenv())
 			rk.sync.global()
 
-			rk.call.plugin ("rkward::save_variables", append.state="FALSE", data.available="testx", file.selection="data", ncolumns.real="2.", sep.string=",", submit.mode="submit")
+			rk.call.plugin ("rkward::save_variables", append.state="FALSE", data.available="testx", file.selection=file.path (getwd(), "data"), ncolumns.real="2.", sep.string=",", submit.mode="submit")
 
 			x <- readLines ("data")
 			for (line in x) rk.print (line)
@@ -113,7 +112,7 @@ suite <- new ("RKTestSuite", id="import_export_plugins",
 			assign ("women", datasets::women, globalenv())
 			rk.sync.global()
 
-			rk.call.plugin ("rkward::save_csv", dec.string=".", encoding.string="", eol.string="\\n", file.selection="data", na.text="NA", qmethod.string="double", quick.string="csv", quote.state="1", rowname.string="TRUE", sep.string=",", x.available="women", submit.mode="submit")
+			rk.call.plugin ("rkward::save_csv", dec.string=".", encoding.string="", eol.string="\\n", file.selection=file.path (getwd(), "data"), na.text="NA", qmethod.string="double", quick.string="csv", quote.state="1", rowname.string="TRUE", sep.string=",", x.available="women", submit.mode="submit")
 
 			x <- readLines ("data")
 			for (line in x) rk.print (line)
@@ -124,7 +123,7 @@ suite <- new ("RKTestSuite", id="import_export_plugins",
 			assign ("skel.func2", rkwardtests::rktest.getTempDir, envir=globalenv())
 			rk.sync.global()
 
-			rk.call.plugin ("rkward::save_skeleton", data.available="skel.func1\nskel.func2", force.state="TRUE", name.text="anRpackage", path.selection=".", submit.mode="submit")
+			rk.call.plugin ("rkward::save_skeleton", data.available="skel.func1\nskel.func2", force.state="TRUE", name.text="anRpackage", path.selection=getwd(), submit.mode="submit")
 			rm (skel.func1, skel.func2, envir=globalenv())
 		})
 	), postCalls = list (
diff --git a/tests/import_export_plugins/import_csv.rkcommands.R b/tests/import_export_plugins/import_csv.rkcommands.R
index f0e42cb..1f0beed 100644
--- a/tests/import_export_plugins/import_csv.rkcommands.R
+++ b/tests/import_export_plugins/import_csv.rkcommands.R
@@ -1,10 +1,10 @@
 local({
 ## Compute
-imported <- read.csv (file="women.csv", row.names=1,  na.strings = "NA", nrows = -1, skip = 0, check.names = TRUE, strip.white = FALSE, blank.lines.skip = TRUE)
+imported <- read.csv (file="PATH/women.csv", row.names=1,  na.strings = "NA", nrows = -1, skip = 0, check.names = TRUE, strip.white = FALSE, blank.lines.skip = TRUE)
 
 # copy from the local environment to globalenv()
 .GlobalEnv$women <- imported
 ## Print result
-rk.header ("Import text / csv data", parameters=list("File name"="women.csv",
+rk.header ("Import text / csv data", parameters=list("File name"="PATH/women.csv",
 	"Object to save to"="women"))
 })
diff --git a/tests/import_export_plugins/import_csv.rkout b/tests/import_export_plugins/import_csv.rkout
index fbefe8d..24b76bc 100644
--- a/tests/import_export_plugins/import_csv.rkout
+++ b/tests/import_export_plugins/import_csv.rkout
@@ -1,6 +1,6 @@
 <h1>Import text / csv data</h1>
 <h2>Parameters</h2>
-<ul><li>File name: women.csv</li>
+<ul><li>File name: PATH/women.csv</li>
 <li>Object to save to: women</li>
 </ul>
 DATE<br />
diff --git a/tests/import_export_plugins/import_csv_overwrite.messages.txt b/tests/import_export_plugins/import_csv_overwrite.messages.txt
index 5de7661..7f5252d 100644
--- a/tests/import_export_plugins/import_csv_overwrite.messages.txt
+++ b/tests/import_export_plugins/import_csv_overwrite.messages.txt
@@ -1,3 +1,3 @@
-Error in rk.call.plugin("rkward::import_csv", file.selection = "women.csv",  : 
+Error in rk.call.plugin("rkward::import_csv", allow_escapes.state = "0",  : 
   
 The plugin could not be auto-submitted with these settings.
diff --git a/tests/import_export_plugins/import_spss.rkcommands.R b/tests/import_export_plugins/import_spss.rkcommands.R
index 520d57f..cf7ee29 100644
--- a/tests/import_export_plugins/import_spss.rkcommands.R
+++ b/tests/import_export_plugins/import_spss.rkcommands.R
@@ -2,7 +2,7 @@ local({
 ## Prepare
 require (foreign)
 ## Compute
-data <- read.spss ("import_export_plugins_testfile.sav", to.data.frame=TRUE, max.value.labels=1)
+data <- read.spss ("PATH/import_export_plugins_testfile.sav", to.data.frame=TRUE, max.value.labels=1)
 
 # set variable labels for use in RKWard
 labels <- attr (data, "variable.labels");
@@ -17,6 +17,6 @@ if (!is.null (labels)) {
 
 .GlobalEnv$my.spss.data <- data		# assign to globalenv()
 ## Print result
-rk.header ("Import SPSS data", parameters=list("File name"="import_export_plugins_testfile.sav",
+rk.header ("Import SPSS data", parameters=list("File name"="PATH/import_export_plugins_testfile.sav",
 	"Object to save to"="my.spss.data"))
 })
diff --git a/tests/import_export_plugins/import_stata.rkcommands.R b/tests/import_export_plugins/import_stata.rkcommands.R
index d122765..9864fe2 100644
--- a/tests/import_export_plugins/import_stata.rkcommands.R
+++ b/tests/import_export_plugins/import_stata.rkcommands.R
@@ -15,7 +15,7 @@ iconv.recursive <- function (x, from) {
 	x
 }
 ## Compute
-data <- read.dta ("import_export_plugins_testfile.dta", convert.dates=TRUE, convert.factors=TRUE, missing.type=FALSE, convert.underscore=FALSE)
+data <- read.dta ("PATH/import_export_plugins_testfile.dta", convert.dates=TRUE, convert.factors=TRUE, missing.type=FALSE, convert.underscore=FALSE)
 
 # convert all strings to the current encoding
 data <- iconv.recursive (data, from="ISO8859-1")
@@ -33,6 +33,6 @@ if (!is.null (labels)) {
 
 .GlobalEnv$my.stata.data <- data		# assign to globalenv()
 ## Print result
-rk.header ("Import Stata File", parameters=list("File name"="import_export_plugins_testfile.dta",
+rk.header ("Import Stata File", parameters=list("File name"="PATH/import_export_plugins_testfile.dta",
 	"Object to save to"="my.stata.data"))
 })
diff --git a/tests/import_export_plugins/import_stata.rkout b/tests/import_export_plugins/import_stata.rkout
index 814ce12..293c7e8 100644
--- a/tests/import_export_plugins/import_stata.rkout
+++ b/tests/import_export_plugins/import_stata.rkout
@@ -1,6 +1,6 @@
 <h1>Import Stata File</h1>
 <h2>Parameters</h2>
-<ul><li>File name: import_export_plugins_testfile.dta</li>
+<ul><li>File name: PATH/import_export_plugins_testfile.dta</li>
 <li>Object to save to: my.stata.data</li>
 </ul>
 DATE<br />
diff --git a/tests/import_export_plugins/load_r_object.rkcommands.R b/tests/import_export_plugins/load_r_object.rkcommands.R
index 617cf5a..c0159da 100644
--- a/tests/import_export_plugins/load_r_object.rkcommands.R
+++ b/tests/import_export_plugins/load_r_object.rkcommands.R
@@ -1,7 +1,7 @@
 local({
 ## Compute
-load (file="women.RData", envir=globalenv())
+load (file="PATH/women.RData", envir=globalenv())
 ## Print result
-rk.header ("Load data", parameters=list("R data file to load"="women.RData",
+rk.header ("Load data", parameters=list("R data file to load"="PATH/women.RData",
 	"Import to environment"="globalenv()"))
 })
diff --git a/tests/import_export_plugins/load_r_object.rkout b/tests/import_export_plugins/load_r_object.rkout
index c44a620..12c48a8 100644
--- a/tests/import_export_plugins/load_r_object.rkout
+++ b/tests/import_export_plugins/load_r_object.rkout
@@ -1,6 +1,6 @@
 <h1>Load data</h1>
 <h2>Parameters</h2>
-<ul><li>R data file to load: women.RData</li>
+<ul><li>R data file to load: PATH/women.RData</li>
 <li>Import to environment: globalenv()</li>
 </ul>
 DATE<br />
diff --git a/tests/import_export_plugins/load_source.rkcommands.R b/tests/import_export_plugins/load_source.rkcommands.R
index 2bb4ad4..8abab76 100644
--- a/tests/import_export_plugins/load_source.rkcommands.R
+++ b/tests/import_export_plugins/load_source.rkcommands.R
@@ -1,12 +1,12 @@
 local({
 ## Compute
-source (file="source.R", local=TRUE, verbose=FALSE, print.eval=FALSE, chdir=FALSE)
+source (file="PATH/source.R", local=TRUE, verbose=FALSE, print.eval=FALSE, chdir=FALSE)
 ## Print result
-rk.header ("Source R file", parameters=list("File name"="source.R"))
+rk.header ("Source R file", parameters=list("File name"="PATH/source.R"))
 })
 local({
 ## Compute
-source (file="source.R", local=FALSE, echo=TRUE, max.deparse.length=150, verbose=FALSE, print.eval=FALSE, chdir=FALSE)
+source (file="PATH/source.R", local=FALSE, echo=TRUE, max.deparse.length=150, verbose=FALSE, print.eval=FALSE, chdir=FALSE)
 ## Print result
-rk.header ("Source R file", parameters=list("File name"="source.R"))
+rk.header ("Source R file", parameters=list("File name"="PATH/source.R"))
 })
diff --git a/tests/import_export_plugins/load_source.rkout b/tests/import_export_plugins/load_source.rkout
index f07106c..4aee2ac 100644
--- a/tests/import_export_plugins/load_source.rkout
+++ b/tests/import_export_plugins/load_source.rkout
@@ -1,6 +1,6 @@
 <h1>Source R file</h1>
 <h2>Parameters</h2>
-<ul><li>File name: source.R</li>
+<ul><li>File name: PATH/source.R</li>
 </ul>
 DATE<br />
 <h2>Messages, warnings, or errors:</h2>
@@ -8,7 +8,7 @@ DATE<br />
 </pre>
 <h1>Source R file</h1>
 <h2>Parameters</h2>
-<ul><li>File name: source.R</li>
+<ul><li>File name: PATH/source.R</li>
 </ul>
 DATE<br />
 <h2>Messages, warnings, or errors:</h2>
diff --git a/tests/import_export_plugins/package_skeleton.messages.txt b/tests/import_export_plugins/package_skeleton.messages.txt
index 60d49c2..2873b08 100644
--- a/tests/import_export_plugins/package_skeleton.messages.txt
+++ b/tests/import_export_plugins/package_skeleton.messages.txt
@@ -5,4 +5,4 @@ Creating Read-and-delete-me ...
 Saving functions and data ...
 Making help files ...
 Done.
-Further steps are described in './anRpackage/Read-and-delete-me'.
+Further steps are described in 'PATH/anRpackage/Read-and-delete-me'.
diff --git a/tests/import_export_plugins/package_skeleton.rkcommands.R b/tests/import_export_plugins/package_skeleton.rkcommands.R
index 1ee3bd4..5979bc4 100644
--- a/tests/import_export_plugins/package_skeleton.rkcommands.R
+++ b/tests/import_export_plugins/package_skeleton.rkcommands.R
@@ -1,7 +1,7 @@
 local({
 ## Compute
-package.skeleton(name="anRpackage", list=c('skel.func1','skel.func2'), path=".", force= TRUE)
+package.skeleton(name="anRpackage", list=c('skel.func1','skel.func2'), path="PATH", force= TRUE)
 ## Print result
 rk.header ("Create package skeleton", parameters=list("Package name"="anRpackage",
-	"Directory"="."))
+	"Directory"="PATH"))
 })
diff --git a/tests/import_export_plugins/package_skeleton.rkout b/tests/import_export_plugins/package_skeleton.rkout
index 79bc7fc..d2b340e 100644
--- a/tests/import_export_plugins/package_skeleton.rkout
+++ b/tests/import_export_plugins/package_skeleton.rkout
@@ -1,6 +1,6 @@
 <h1>Create package skeleton</h1>
 <h2>Parameters</h2>
 <ul><li>Package name: anRpackage</li>
-<li>Directory: .</li>
+<li>Directory: PATH</li>
 </ul>
 DATE<br />
diff --git a/tests/import_export_plugins/save_r_object.rkcommands.R b/tests/import_export_plugins/save_r_object.rkcommands.R
index a06b9f7..9ff0227 100644
--- a/tests/import_export_plugins/save_r_object.rkcommands.R
+++ b/tests/import_export_plugins/save_r_object.rkcommands.R
@@ -1,23 +1,23 @@
 local({
 ## Compute
 save(testx,
-	file="x.RData",
+	file="PATH/x.RData",
 	ascii=TRUE,
 	compress="gzip",
 	compression_level=6)
 
 ## Print result
-rk.header ("Save R objects", parameters=list("File name"="x.RData",
+rk.header ("Save R objects", parameters=list("File name"="PATH/x.RData",
 	"Object"="testx"))
 })
 local({
 ## Compute
 save(testy,
-	file="y.RData",
+	file="PATH/y.RData",
 	compress="xz",
 	compression_level=-9)
 
 ## Print result
-rk.header ("Save R objects", parameters=list("File name"="y.RData",
+rk.header ("Save R objects", parameters=list("File name"="PATH/y.RData",
 	"Object"="testy"))
 })
diff --git a/tests/import_export_plugins/save_r_object.rkout b/tests/import_export_plugins/save_r_object.rkout
index 602f6b0..11e7946 100644
--- a/tests/import_export_plugins/save_r_object.rkout
+++ b/tests/import_export_plugins/save_r_object.rkout
@@ -1,12 +1,12 @@
 <h1>Save R objects</h1>
 <h2>Parameters</h2>
-<ul><li>File name: x.RData</li>
+<ul><li>File name: PATH/x.RData</li>
 <li>Object: testx</li>
 </ul>
 DATE<br />
 <h1>Save R objects</h1>
 <h2>Parameters</h2>
-<ul><li>File name: y.RData</li>
+<ul><li>File name: PATH/y.RData</li>
 <li>Object: testy</li>
 </ul>
 DATE<br />
diff --git a/tests/import_export_plugins/setworkdir.rkcommands.R b/tests/import_export_plugins/setworkdir.rkcommands.R
index 8cc1932..d4774fe 100644
--- a/tests/import_export_plugins/setworkdir.rkcommands.R
+++ b/tests/import_export_plugins/setworkdir.rkcommands.R
@@ -1,8 +1,8 @@
 local({
 ## Compute
-setwd("..")
+setwd("PATH/..")
 })
 local({
 ## Compute
-setwd("import_export_plugins")
+setwd("PATH")
 })
diff --git a/tests/import_export_plugins/write_csv.rkcommands.R b/tests/import_export_plugins/write_csv.rkcommands.R
index 8284149..8d9992d 100644
--- a/tests/import_export_plugins/write_csv.rkcommands.R
+++ b/tests/import_export_plugins/write_csv.rkcommands.R
@@ -5,11 +5,11 @@ local({
 	# append=FALSE, sep=",", dec=".", col.names=NA, qmethod="double"
 	write.csv(
 		x=women,
-		file="data",
+		file="PATH/data",
 		fileEncoding=""
 	)
 
 ## Print result
-rk.header ("Export Table / CSV files", parameters=list("File"="data",
+rk.header ("Export Table / CSV files", parameters=list("File"="PATH/data",
 	"Data"="women"))
 })
diff --git a/tests/import_export_plugins/write_csv.rkout b/tests/import_export_plugins/write_csv.rkout
index 8e5cce9..0a82aa8 100644
--- a/tests/import_export_plugins/write_csv.rkout
+++ b/tests/import_export_plugins/write_csv.rkout
@@ -1,6 +1,6 @@
 <h1>Export Table / CSV files</h1>
 <h2>Parameters</h2>
-<ul><li>File: data</li>
+<ul><li>File: PATH/data</li>
 <li>Data: women</li>
 </ul>
 DATE<br />
diff --git a/tests/import_export_plugins/write_vector_matrix.rkcommands.R b/tests/import_export_plugins/write_vector_matrix.rkcommands.R
index a1234bd..6bce5d4 100644
--- a/tests/import_export_plugins/write_vector_matrix.rkcommands.R
+++ b/tests/import_export_plugins/write_vector_matrix.rkcommands.R
@@ -1,7 +1,7 @@
 local({
 ## Compute
-write (x=testx, file="data", ncolumns=2, append=FALSE, sep=",")
+write (x=testx, file="PATH/data", ncolumns=2, append=FALSE, sep=",")
 ## Print result
-rk.header ("Write Variables", parameters=list("File name"="data",
+rk.header ("Write Variables", parameters=list("File name"="PATH/data",
 	"Data"="testx"))
 })
diff --git a/tests/import_export_plugins/write_vector_matrix.rkout b/tests/import_export_plugins/write_vector_matrix.rkout
index fd15e2b..003ace8 100644
--- a/tests/import_export_plugins/write_vector_matrix.rkout
+++ b/tests/import_export_plugins/write_vector_matrix.rkout
@@ -1,6 +1,6 @@
 <h1>Write Variables</h1>
 <h2>Parameters</h2>
-<ul><li>File name: data</li>
+<ul><li>File name: PATH/data</li>
 <li>Data: testx</li>
 </ul>
 DATE<br />



More information about the rkward-tracker mailing list