Running ‘testthat.R’ [11s/19s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(grafify)
  Loading required package: ggplot2
  > library(rlang)
  
  Attaching package: 'rlang'
  
  The following objects are masked from 'package:testthat':
  
      is_false, is_null, is_true
  
  > library(dplyr)
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  > library(tidyr)
  
  Attaching package: 'tidyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  > library(lme4)
  Loading required package: Matrix
  
  Attaching package: 'Matrix'
  
  The following objects are masked from 'package:tidyr':
  
      expand, pack, unpack
  
  > 
  > test_check("grafify")
  boundary (singular) fit: see ?isSingular
  boundary (singular) fit: see ?isSingular
  boundary (singular) fit: see ?isSingular
  boundary (singular) fit: see ?isSingular
  [ FAIL 1 | WARN 0 | SKIP 0 | PASS 319 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-mixed_model.R:23:3): plot model residuals qqmodel ───────────────
  Error in `is_call(uq_expr, c("after_stat", "after_scale"))`: argument "uq_expr" is missing, with no default
  Backtrace:
       ▆
    1. └─grafify::plot_qqmodel(mmod7) at test-mixed_model.R:23:2
    2.   └─grafify::plot_qqline(data = mod, ycol = mod$.resid)
    3.     └─ggplot2:::`+.gg`(...)
    4.       └─ggplot2:::add_ggplot(e1, e2, e2name)
    5.         ├─ggplot2::ggplot_add(object, p, objectname)
    6.         └─ggplot2:::ggplot_add.Layer(object, p, objectname)
    7.           └─ggplot2:::make_labels(object$mapping)
    8.             └─base::Map(default_label, names(mapping), mapping)
    9.               └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   10.                 └─ggplot2 `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
   11.                   └─ggplot2:::strip_stage(mapping)
   12.                     └─rlang::is_call(uq_expr, c("after_stat", "after_scale"))
  
  [ FAIL 1 | WARN 0 | SKIP 0 | PASS 319 ]
  Error: Test failures
  Execution halted