Running ‘testthat.R’ [29s/65s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(triplot)
  > 
  > test_check("triplot")
  Welcome to DALEX (version: 2.5.3).
  Find examples and detailed introduction at: http://ema.drwhy.ai/
  Additional features will be available after installation of: ggpubr.
  Use 'install_dependencies()' to get all suggested dependencies
  [ FAIL 2 | WARN 2 | SKIP 0 | PASS 74 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_triplot.R:86:3'): check plot.calculate_triplot function ────────
  Error: <ggplot2::ggplot> object properties are invalid:
  - @labels must be <ggplot2::labels>, not <character>
  Backtrace:
       ▆
    1. ├─base::plot(apartments_tri) at test_triplot.R:86:3
    2. └─triplot:::plot.triplot(apartments_tri)
    3.   └─S7:::Ops.S7_object(p3, theme(axis.title = element_text(size = axis_lab_size)))
    4.     ├─base::tryCatch(return(base_ops[[.Generic]](e1, e2)), S7_error_method_not_found = function(cnd) cnd)
    5.     │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
    6.     │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
    7.     │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
    8.     └─base_ops[[.Generic]](e1, e2)
    9.       ├─S7::S7_dispatch()
   10.       └─ggplot2 (local) `method(+, list(ggplot2::ggplot, class_any))`(...)
   11.         └─ggplot2:::add_ggplot(e1, e2, e2name)
   12.           ├─ggplot2::ggplot_add(object, p, objectname)
   13.           └─ggplot2:::ggplot_add.default(object, p, objectname)
   14.             └─ggplot2::update_ggplot(object = object, plot = plot, ...)
   15.               ├─S7::S7_dispatch()
   16.               └─ggplot2 (local) `method(update_ggplot, list(ggplot2::theme, ggplot2::ggplot))`(...)
   17.                 └─S7::set_props(plot, theme = add_theme(plot@theme, object))
   18.                   └─S7::`props<-`(`*tmp*`, value = list(...))
   19.                     └─S7::validate(object)
  ── Error ('test_triplot.R:112:3'): check plot.calculate_triplot function for FI ──
  Error: <ggplot2::ggplot> object properties are invalid:
  - @labels must be <ggplot2::labels>, not <character>
  Backtrace:
       ▆
    1. ├─base::plot(apartments_tri, abbrev_labels = 5) at test_triplot.R:112:3
    2. └─triplot:::plot.triplot(apartments_tri, abbrev_labels = 5)
    3.   └─S7:::Ops.S7_object(p3, theme(axis.title = element_text(size = axis_lab_size)))
    4.     ├─base::tryCatch(return(base_ops[[.Generic]](e1, e2)), S7_error_method_not_found = function(cnd) cnd)
    5.     │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
    6.     │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
    7.     │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
    8.     └─base_ops[[.Generic]](e1, e2)
    9.       ├─S7::S7_dispatch()
   10.       └─ggplot2 (local) `method(+, list(ggplot2::ggplot, class_any))`(...)
   11.         └─ggplot2:::add_ggplot(e1, e2, e2name)
   12.           ├─ggplot2::ggplot_add(object, p, objectname)
   13.           └─ggplot2:::ggplot_add.default(object, p, objectname)
   14.             └─ggplot2::update_ggplot(object = object, plot = plot, ...)
   15.               ├─S7::S7_dispatch()
   16.               └─ggplot2 (local) `method(update_ggplot, list(ggplot2::theme, ggplot2::ggplot))`(...)
   17.                 └─S7::set_props(plot, theme = add_theme(plot@theme, object))
   18.                   └─S7::`props<-`(`*tmp*`, value = list(...))
   19.                     └─S7::validate(object)
  
  [ FAIL 2 | WARN 2 | SKIP 0 | PASS 74 ]
  Error: Test failures
  Execution halted