Running ‘runTests.R’ [4s/13s]
Running the tests in ‘tests/runTests.R’ failed.
Complete output:
  > # Adapted from: http://rwiki.sciviews.org/doku.php?id=developers:runit
  > 
  > if( identical( .Platform$OS.type, "windows" ) && 
  +     identical( .Platform$r_arch, "x64" ) ){
  +   print( "unit tests not run on windows 64 (workaround alert)" )
  + } else {
  +   if(require("RUnit", quietly = TRUE)) {
  +     pkg <- "haploR"
  +     if(Sys.getenv("RCMDCHECK") == "FALSE") {
  +       path <- file.path(getwd(), "..", "inst", "unitTests")
  +     } else {
  +       path <- system.file(package=pkg, "unitTests")
  +     }
  + 
  +     cat("\nRunning unit tests:\n")
  +     print(list(pkg=pkg, getwd=getwd(), pathToUnitTests=path))
  +     
  +     library(package=pkg, character.only=TRUE)
  +     
  +     # Define tests
  +     testSuite <- defineTestSuite(name=paste(pkg, "unit testing"), 
  +                                  dirs=path, 
  +                                  testFuncRegexp = "^test_+", 
  +                                  testFileRegexp = "^test_+")
  +     
  +     # Run
  +     tests <- runTestSuite(testSuite)
  +     
  +     # Default report name
  +     pathReport <- file.path(path, "report")
  +     
  +     # Report to stdout
  +     printTextProtocol(tests, showDetails=FALSE)
  +     
  +     # Return stop() to cause R CMD check stop in case of
  +     #  - failures i.e. FALSE to unit tests or
  +     #  - errors i.e. R errors
  +     tmp <- getErrors(tests)
  +     if(tmp$nFail > 0 | tmp$nErr > 0) {
  +       stop(paste("\n\nUnit testing failed (#test failures: ", tmp$nFail, ", 
  +                  #R errors: ",  tmp$nErr, ")\n\n", sep=""))
  +     }
  +     
  +   } else {
  +     print( "package RUnit not available, cannot run unit tests" )
  +   }       
  + }
  
  Running unit tests:
  $pkg
  [1] "haploR"
  
  $getwd
  [1] "/home/hornik/tmp/R.check/r-patched-gcc/Work/PKGS/haploR.Rcheck/tests"
  
  $pathToUnitTests
  [1] "/tmp/RtmpKw98kc/RLIBS_61de542fac8b/haploR/unitTests"
  
  
  
  Executing test function test_LDlink.LDmatrix  ...  done successfully.
  
  
  
  Executing test function test_queryHaploreg  ...  done successfully.
  
  
  
  Executing test function test_queryRegulome  ... Timing stopped at: 0.384 0.01 2.292
  Error in checkEqualsNumeric(dim(x$res.table)[1], 2) : 
    Mean relative difference: 0.9974684
  
   done successfully.
  
  RUNIT TEST PROTOCOL -- Tue Aug  7 20:43:33 2018 
  *********************************************** 
  Number of test functions: 3 
  Number of errors: 0 
  Number of failures: 1 
  
   
  1 Test Suite : 
  haploR unit testing - 3 test functions, 0 errors, 1 failure
  FAILURE in test_queryRegulome: Error in checkEqualsNumeric(dim(x$res.table)[1], 2) : 
    Mean relative difference: 0.9974684
  
  Error: 
  
  Unit testing failed (#test failures: 1, 
                   #R errors: 0)
  
  Execution halted