Running ‘run-all.R’ [10s/11s]
Running the tests in ‘tests/run-all.R’ failed.
Complete output:
  > library(testthat)
  > library(BBmisc)
  
  Attaching package: 'BBmisc'
  
  The following object is masked from 'package:base':
  
      isFALSE
  
  > library(ParamHelpers)
  > 
  > test_check("ParamHelpers")
  ── 1. Error: plotYTrace works (@test_plotYTrace.R#34)  ─────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: plotYTraces(opt.paths) at testthat/test_plotYTrace.R:34
  2: print(renderYTraces(opt.paths, over.time))
  3: print.ggplot(renderYTraces(opt.paths, over.time))
  4: ggplot_gtable(data)
  5: ggplot_gtable.ggplot_built(data)
  6: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides, 
         plot$labels)
  7: guides_gengrob(gdefs, theme)
  8: lapply(gdefs, guide_gengrob, theme)
  9: FUN(X[[i]], ...)
  10: guide_gengrob.legend(X[[i]], ...)
  ...
  17: pushvpgp(x)
  18: pushgrobvp(x$vp)
  19: pushgrobvp.viewport(x$vp)
  20: pushViewport(vp, recording = FALSE)
  21: lapply(vps, push.vp, recording)
  22: FUN(X[[i]], ...)
  23: push.vp.vpTree(X[[i]], ...)
  24: push.vp(vp$parent, recording)
  25: push.vp.viewport(vp$parent, recording)
  26: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 2. Error: renderOptPathPlot (@test_renderOptPathPlot.R#23)  ─────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: plotOptPath(op0, iters = 0:2, pause = FALSE, title = "Optimization Path") at testthat/test_renderOptPathPlot.R:23
  2: arrangePlots(plots, iter, iters)
  3: toGTable(plots)
  4: lapply(pls, function(pl) {
         if (inherits(pl, "ggplot")) {
             return(ggplot2::ggplot_gtable(ggplot2::ggplot_build(pl)))
         }
         if (inherits(pl, "gtable") || is.null(pl)) {
             return(pl)
         }
         return(toGTable(pl))
     })
  5: FUN(X[[i]], ...)
  6: ggplot2::ggplot_gtable(ggplot2::ggplot_build(pl))
  7: ggplot_gtable.ggplot_built(ggplot2::ggplot_build(pl))
  8: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides, 
         plot$labels)
  9: guides_gengrob(gdefs, theme)
  10: lapply(gdefs, guide_gengrob, theme)
  ...
  19: pushvpgp(x)
  20: pushgrobvp(x$vp)
  21: pushgrobvp.viewport(x$vp)
  22: pushViewport(vp, recording = FALSE)
  23: lapply(vps, push.vp, recording)
  24: FUN(X[[i]], ...)
  25: push.vp.vpTree(X[[i]], ...)
  26: push.vp(vp$parent, recording)
  27: push.vp.viewport(vp$parent, recording)
  28: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 1035 SKIPPED: 1 FAILED: 2
  1. Error: plotYTrace works (@test_plotYTrace.R#34) 
  2. Error: renderOptPathPlot (@test_renderOptPathPlot.R#23) 
  
  Error: testthat unit tests failed
  Execution halted