[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