Running 'testthat.R'
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:127: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:
       █
    1. ├─testthat::expect_identical(...) test-coding.genes.R:127: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:162: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:
       █
    1. ├─testthat::expect_identical(...) test-coding.genes.R:162: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 217 ]
  Error: Test failures
  Execution halted