## You can run the test suite by executing the full file in any R session after doing flConnect.
## Prerequisite is to change directory to the AdapteR tests directory.
library(testthat)
library(plyr)
##' runs a test file.
##'
##' @param f the test file to run
##' @param ask if TRUE, will ask for each file
##' @param skip a regexp on the filename whether the test should be skipped
##' @param ... passed on to test_file
##' @return the test_file report
runMyTestFile <- function(f, ask=FALSE, runonly=NULL, skip=NULL,...){
if(!is.null(skip))
if(grepl(skip,f)) {
cat(paste0("skipped ",f,"\n"))
return(data.frame())
}
if(!is.null(runonly))
if(!grepl(runonly,f)) {
##cat(paste0("skipped ",f,"\n"))
return(data.frame())
}
cat(paste0("testing ",f,"\n"))
if(ask)
run <- readline("start (y?)")=="y"
else
run <- TRUE
if(run)
tryCatch({
options(debugSQL=FALSE)
test_file(f,...)
},
error=function(e) print(e))
}
checkagain <- ".*"
results <- list()
results$testthat <- llply(
find_test_scripts("testthat"),
runMyTestFile,
ask=FALSE,
runonly=checkagain)
results$testsuite <- llply(
find_test_scripts("testsuite"),
runMyTestFile,
ask=FALSE,
runonly=checkagain)
# results$limitations <- llply(
# find_test_scripts("limitations"),
# runMyTestFile,
# ask=FALSE,
# runonly=checkagain)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.