Running 'testthat.R' [247s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(loose.rock)
  > 
  > test_check("loose.rock")
  == Skipped tests ===============================================================
  * empty test (2)
  
  == Failed tests ================================================================
  -- Error (test-coding.genes.R:68:3): getBM multiple combinations of useCache ---
  Error: biomaRt has encountered an unexpected server error.
  Consider trying one of the Ensembl mirrors (for more details look at ?useEnsembl)
  Backtrace:
       x
    1. +-testthat::expect_identical(...) test-coding.genes.R:68:2
    2. | \-testthat::quasi_label(enquo(object), label, arg = "object")
    3. |   \-rlang::eval_bare(expr, quo_get_env(quo))
    4. +-base::do.call(loose.rock:::getBM.internal, args)
    5. \-(function (...) ...
    6.   \-base::tryCatch(...)
    7.     \-base:::tryCatchList(expr, classes, parentenv, handlers)
    8.       \-base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
    9.         \-value[[3L]](cond)
   10.           +-base::do.call(getBM.internal, args.call)
   11.           \-(function (...) ...
   12.             \-base::tryCatch(...)
   13.               \-base:::tryCatchList(expr, classes, parentenv, handlers)
   14.                 \-base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   15.                   \-value[[3L]](cond)
  -- Error (test-coding.genes.R:103:5): getBM internal gets the same as biomaRt::getBM --
  Error: biomaRt has encountered an unexpected server error.
  Consider trying one of the Ensembl mirrors (for more details look at ?useEnsembl)
  Backtrace:
       x
    1. +-testthat::expect_identical(...) test-coding.genes.R:103:4
    2. | \-testthat::quasi_label(enquo(object), label, arg = "object")
    3. |   \-rlang::eval_bare(expr, quo_get_env(quo))
    4. +-base::do.call(loose.rock:::getBM.internal, args)
    5. \-(function (...) ...
    6.   \-base::tryCatch(...)
    7.     \-base:::tryCatchList(expr, classes, parentenv, handlers)
    8.       \-base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
    9.         \-value[[3L]](cond)
   10.           +-base::do.call(getBM.internal, args.call)
   11.           \-(function (...) ...
   12.             \-base::tryCatch(...)
   13.               \-base:::tryCatchList(expr, classes, parentenv, handlers)
   14.                 \-base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   15.                   \-value[[3L]](cond)
  
  [ FAIL 2 | WARN 0 | SKIP 2 | PASS 172 ]
  Error: Test failures
  Execution halted