R/codeVerif.R

In packS4: Toy Example of S4 Package

detectGlobal <- function(realResult,tolerance=0,theoResult="",result=TRUE){
  functionNames <- strsplit(deparse(substitute(realResult)),"\\(")[[1]][1]
  if(identical(theoResult,"")==FALSE){
    if( isTRUE(all.equal( realResult , theoResult ))!=result ){
      cat("WARNING(PreTest2) in    ",functionNames,":",deparse(substitute(realResult)), " == ",theoResult," is not ",result,"\a\n\a")
    }
  }else{}
  if(length(findGlobals(get(functionNames),FALSE)$variables)  > tolerance){
    cat("WARNIGS(detectGlobal) in ",functionNames,": These are the globals:",findGlobals(get(functionNames),FALSE)$variables,"\a\n")
  }else{}
}


tryBug <- function(...){
   res <- try(...)
   if(class(res)!="try-error"){
       stop("This line SHOULD give an error, whereas it does not !")
   }else{}
   return(invisible)
}