Description Arguments Value Author(s) See Also Examples
Generic test adapter Method
object |
( |
inputData |
( |
execCache |
( |
xmlDef |
( |
package |
( |
... |
additional values can be given from |
(list
)
Sebastian Wolf sebastian@mail-wolf.de
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | options("RTest_verbose" = TRUE)
testCollection <- new("RTestCollection",
project.name = "RTest Vignette",
project.details = "Example test exectuion",
tester = "Example tester",
test.start = format(Sys.time(), "%Y-%m-%d %H:%M:%S"))
TCDir <- paste0(find.package("RTest"),"/xml-templates")
testCollection <- RTest::importTCsFromDir(testCollection,
xml.dPath = TCDir,f.pattern = "RTest_TC-02.xml")
outf <- tempfile(fileext=".html")
funct_02 <<- function(data, mult) { cbind(data, "sum" = apply(data, 1, sum)*mult) }
environment(funct_02) <- asNamespace('RTest')
testCollection <- RTest::exec(testCollection, out.fPath = outf, open=FALSE)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.