Running ‘testthat.R’ [17s/37s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(comparer)
  > 
  > test_check("comparer")
  Recovered 6 / 6
  Recovered 6 / 12
  Error in summary.connection(connection) : invalid connection
  In addition: Warning message:
  In .Internal(gc(verbose, reset, full)) :
    closing unused connection 4 (<-localhost:11567)
  Recovered 1 / 4
  Completed all runs in 0.4 seconds 
  Starting to run 10 trials in batches of size 3 
  Finished running superbatches 
  [ FAIL 8 | WARN 0 | SKIP 0 | PASS 409 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test_hype.R:114:3'): hype works ───────────────────────────────────
  `plotX <- h1$plotX()` threw an error.
  Message: there is no package called 'ggpubr'
  Class:   packageNotFoundError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(plotX <- h1$plotX(), NA) at test_hype.R:114:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─h1$plotX()
    7. │ ├─base::suppressWarnings(...)
    8. │ │ └─base::withCallingHandlers(...)
    9. │ └─base::do.call(ggpubr::ggarrange, ggs)
   10. └─base::loadNamespace(x)
   11.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   12.     └─base (local) withOneRestart(expr, restarts[[1L]])
   13.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test_hype.R:115:3'): hype works ─────────────────────────────────────
  Error in `eval(code, test_env)`: object 'plotX' not found
  Backtrace:
      ▆
   1. └─testthat::expect_is(plotX, "ggplot") at test_hype.R:115:2
   2.   └─testthat::quasi_label(enquo(object), label, arg = "object")
   3.     └─rlang::eval_bare(expr, quo_get_env(quo))
  ── Failure ('test_hype.R:140:3'): 2 inputs ─────────────────────────────────────
  `plotpairs <- h2$pairs()` threw an error.
  Message: there is no package called 'ggpubr'
  Class:   packageNotFoundError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(plotpairs <- h2$pairs(), NA) at test_hype.R:140:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─h2$pairs()
    7. │ └─base::do.call(ggpubr::ggarrange, ggs)
    8. └─base::loadNamespace(x)
    9.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   10.     └─base (local) withOneRestart(expr, restarts[[1L]])
   11.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test_hype.R:141:3'): 2 inputs ───────────────────────────────────────
  Error in `eval(code, test_env)`: object 'plotpairs' not found
  Backtrace:
      ▆
   1. └─testthat::expect_is(plotpairs, "ggplot") at test_hype.R:141:2
   2.   └─testthat::quasi_label(enquo(object), label, arg = "object")
   3.     └─rlang::eval_bare(expr, quo_get_env(quo))
  ── Failure ('test_hype.R:311:3'): discrete params ──────────────────────────────
  `{ ... }` threw an error.
  Message: there is no package called 'ggpubr'
  Class:   packageNotFoundError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test_hype.R:311:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─hp$plotX(addEIlines = T, addlines = T) at test_hype.R:312:4
    7. │ ├─base::suppressWarnings(...)
    8. │ │ └─base::withCallingHandlers(...)
    9. │ └─base::do.call(ggpubr::ggarrange, ggs)
   10. └─base::loadNamespace(x)
   11.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   12.     └─base (local) withOneRestart(expr, restarts[[1L]])
   13.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Failure ('test_hype.R:314:3'): discrete params ──────────────────────────────
  `{ ... }` threw an error.
  Message: there is no package called 'ggpubr'
  Class:   packageNotFoundError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test_hype.R:314:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─hp$plotXorder() at test_hype.R:315:4
    7. │ └─base::do.call(ggpubr::ggarrange, ggs)
    8. └─base::loadNamespace(x)
    9.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   10.     └─base (local) withOneRestart(expr, restarts[[1L]])
   11.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Failure ('test_hype.R:347:3'): hype with all params type ────────────────────
  `{ ... }` threw an error.
  Message: there is no package called 'ggpubr'
  Class:   packageNotFoundError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test_hype.R:347:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─hp$plotX(addEIlines = T, addlines = T) at test_hype.R:348:4
    7. │ ├─base::suppressWarnings(...)
    8. │ │ └─base::withCallingHandlers(...)
    9. │ └─base::do.call(ggpubr::ggarrange, ggs)
   10. └─base::loadNamespace(x)
   11.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   12.     └─base (local) withOneRestart(expr, restarts[[1L]])
   13.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Failure ('test_hype.R:350:3'): hype with all params type ────────────────────
  `{ ... }` threw an error.
  Message: there is no package called 'ggpubr'
  Class:   packageNotFoundError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test_hype.R:350:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─hp$plotXorder() at test_hype.R:351:4
    7. │ └─base::do.call(ggpubr::ggarrange, ggs)
    8. └─base::loadNamespace(x)
    9.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   10.     └─base (local) withOneRestart(expr, restarts[[1L]])
   11.       └─base (local) doWithOneRestart(return(expr), restart)
  
  [ FAIL 8 | WARN 0 | SKIP 0 | PASS 409 ]
  Error: Test failures
  Execution halted