inst/tests/testhelpers.R

In SoilR: Models of Soil Organic Matter Decomposition

#!/usr/bin/Rscript
# vim:set ff=unix expandtab ts=2 sw=2:
checkWarning <- function(expr,silent=TRUE) {
    checkTrue(
    inherits(
       tryCatch(
         eval(expr, envir = parent.frame()), 
         silent = silent,
         warning=function(w){w}
       ),
       "warning"
    ),
        "Warning not generated as expected\n")
}             


plotAndCheck=function(fileName,lexp,env){
  pdf(file=fileName)
  eval(lexp,env)
  dev.off()
  # fixme mm:
  # the following command does not work on all platforms (it relies on a 
  # commandline tool qpdf
  res=system(command=paste("qpdf --check ",fileName,sep=""))
  checkEquals(attr(res,"status"),NULL)
}
sourcePackageFiles<-function(src_file_list,prefix="../../R/"){
  paths=sapply(src_file_list,function(x){return(paste(prefix,x,sep=""))})
  
  for (f in paths){
      print(f)
      source(f,echo=FALSE)
  }
}
loadDataPaths=function(data_files, pefix="../../data/"){
  paths=sapply(data_files,function(x){return(paste(prefix,x,sep=""))})
  for (dfile in dataPaths){
    load(dfile)
  }
}