Running ‘spelling.R’ [0s/0s]
  Running ‘testthat.R’ [122s/145s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
  > # * https://testthat.r-lib.org/articles/special-files.html
  > 
  > library(testthat)
  > library(DImodelsVis)
  > 
  > # Taken from ggside see github issue #141 on vdiffr
  > if ((nzchar(Sys.getenv("CI")) ||
  +      !nzchar(Sys.getenv("NOT_CRAN"))) &&
  +     identical(Sys.getenv("VDIFFR_RUN_TESTS"), 'false')) {
  +   #if we are running tests remotely AND
  +   # we are opting out of using vdiffr
  +   # assigning a dummy function
  + 
  +   expect_doppelganger <- function(...) {
  +     testthat::skip("`VDIFFR_RUN_TESTS` set to false on this remote check")
  +   }
  + } else {
  +   expect_doppelganger <- vdiffr::expect_doppelganger
  + }
  > 
  > test_check("DImodelsVis")
  v Finished data preparation.
  v Created all plots.
  v Created all plots.
  v Finished data preparation.
  Saving _problems/test-Ternary-77.R
  v Created plot.
  v Created plot.
  [ FAIL 1 | WARN 0 | SKIP 8 | PASS 315 ]
  
  ══ Skipped tests (8) ═══════════════════════════════════════════════════════════
  • On CRAN (8): 'test-ConditionalTernary.R:2:1', 'test-GradientChange.R:2:1',
    'test-GroupedTernary.R:2:1', 'test-ModelDiagnostics.R:2:1',
    'test-ModelSelection.R:2:1', 'test-PredictionContributions.R:2:1',
    'test-SimplexPath.R:2:1', 'test-VisualiseEffects.R:2:1'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-Ternary.R:62:3'): Basic ternary works as expected ──────────────
  Error in `geom_text_contour(skip = 0, breaks = breaks, label.placer = metR::label_placer_flattest(), size = 3.5, nudge_x = 0.015, nudge_y = 0.015)`: Problem while converting geom to grob.
  i Error occurred in the 11th layer.
  Caused by error in `[.data.table`:
  ! attempt access index 20/20 in VECTOR_ELT
  Backtrace:
       ▆
    1. ├─vdiffr::expect_doppelganger(...) at test-Ternary.R:62:3
    2. │ └─vdiffr (local) writer(fig, testcase, title)
    3. │   ├─vdiffr:::print_plot(plot, title)
    4. │   └─vdiffr:::print_plot.default(plot, title)
    5. │     ├─base::print(p)
    6. │     └─base::print.default(p)
    7. │       ├─methods (local) `<stndrdGn>`(`<ggmltplt>`)
    8. │       └─ggfortify (local) `<stndrdGn>`(`<ggmltplt>`)
    9. │         ├─base::print(object)
   10. │         └─ggfortify:::print(object)
   11. │           └─ggfortify (local) .local(x, ...)
   12. │             ├─base::do.call(gridExtra::grid.arrange, args)
   13. │             └─gridExtra (local) `<fn>`(`<ggplt2::>`, `<ggplt2::>`, ncol = 2L, nrow = 1L)
   14. │               └─gridExtra::arrangeGrob(...)
   15. │                 └─base::lapply(grobs[toconv], ggplot2::ggplotGrob)
   16. │                   └─ggplot2 (local) FUN(X[[i]], ...)
   17. │                     ├─ggplot2::ggplot_gtable(ggplot_build(x))
   18. │                     └─ggplot2 (local) `ggplot_gtable.ggplot2::ggplot_built`(ggplot_build(x))
   19. │                       └─ggplot2:::by_layer(...)
   20. │                         ├─rlang::try_fetch(...)
   21. │                         │ ├─base::tryCatch(...)
   22. │                         │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                         │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                         │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                         │ └─base::withCallingHandlers(...)
   26. │                         └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
   27. │                           └─l$draw_geom(d, layout)
   28. │                             └─ggplot2 (local) draw_geom(..., self = self)
   29. │                               └─self$geom$draw_layer(...)
   30. │                                 └─ggplot2 (local) draw_layer(..., self = self)
   31. │                                   └─base::lapply(...)
   32. │                                     └─ggplot2 (local) FUN(X[[i]], ...)
   33. │                                       ├─rlang::inject(self$draw_panel(data, panel_params, coord, !!!params))
   34. │                                       └─self$draw_panel(...)
   35. │                                         └─metR (local) draw_panel(...)
   36. │                                           ├─data[, `:=`(N, .N), by = .(group, piece)]
   37. │                                           └─data.table:::`[.data.table`(...)
   38. └─base::.handleSimpleError(...)
   39.   └─rlang (local) h(simpleError(msg, call))
   40.     └─handlers[[1L]](cnd)
   41.       └─cli::cli_abort(...)
   42.         └─rlang::abort(...)
  
  [ FAIL 1 | WARN 0 | SKIP 8 | PASS 315 ]
  Error:
  ! Test failures.
  Execution halted