[rkward/releases/0.6.4] /: Use absolute paths in import / export plugin tests, but strip the path from recorded files before comparing.
Thomas Friedrichsmeier
thomas.friedrichsmeier at ruhr-uni-bochum.de
Mon Nov 30 16:47:32 UTC 2015
Git commit 654c16fc50e162266b3588a24c22b2a6a9c512ee by Thomas Friedrichsmeier.
Committed on 30/11/2015 at 16:46.
Pushed by tfry into branch 'releases/0.6.4'.
Use absolute paths in import / export plugin tests, but strip the path from recorded files before comparing.
This is needed, because the KUrlRequester now seems to resolve relative paths.
Also adjust csv import plugin test to recent changes in the plugin.
M +13 -0 rkward/rbackend/rpackages/rkwardtests/R/rkwardtests-internal.R
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/654c16fc50e162266b3588a24c22b2a6a9c512ee
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/import_export_plugins.R b/tests/import_export_plugins.R
index 439762a..f031cbd 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)
@@ -66,11 +65,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))
}),
@@ -80,8 +79,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")
@@ -93,7 +92,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)
@@ -102,7 +101,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)
@@ -113,7 +112,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