Running ‘testthat.R’ [6s/7s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > ## use shift-cmd-t to run all tests
  > library(testthat)
  > test_check("radiant.model")
  Loading required package: radiant.model
  Loading required package: radiant.data
  Loading required package: magrittr
  
  Attaching package: 'magrittr'
  
  The following objects are masked from 'package:testthat':
  
      equals, is_less_than, not
  
  Loading required package: ggplot2
  Loading required package: lubridate
  
  Attaching package: 'lubridate'
  
  The following object is masked from 'package:base':
  
      date
  
  Loading required package: tidyr
  
  Attaching package: 'tidyr'
  
  The following object is masked from 'package:magrittr':
  
      extract
  
  Loading required package: dplyr
  
  Attaching package: 'dplyr'
  
  The following objects are masked from 'package:lubridate':
  
      intersect, setdiff, union
  
  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
  
  
  Attaching package: 'radiant.data'
  
  The following objects are masked from 'package:lubridate':
  
      month, wday
  
  The following object is masked from 'package:ggplot2':
  
      diamonds
  
  The following object is masked from 'package:testthat':
  
      describe
  
  carat           8438.030    51.101 165.125  < .001 ***
  SI1     9 114304.420 104924.680 123684.159  9379.739
  2nd female      0.779 0.712 0.833
  1st female      0.896 0.856 0.926
  1st female 29.000      0.919 0.880 0.945
  ── 1. Error: regress - plots (@test_stats.R#138)  ──────────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: plot(result, plots = "dashboard", shiny = TRUE) at testthat/test_stats.R:138
  2: plot.regress(result, plots = "dashboard", shiny = TRUE)
  3: sshhr(gridExtra::grid.arrange(grobs = plot_list, ncol = nrCol)) %>% {
         if (shiny) 
             .
         else print(.)
     }
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: sshhr(gridExtra::grid.arrange(grobs = plot_list, ncol = nrCol))
  7: suppressWarnings(suppressMessages(...))
  8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  9: suppressMessages(...)
  10: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  ...
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpStack(X[[i]], ...)
  29: lapply(vp, push.vp, recording)
  30: FUN(X[[i]], ...)
  31: push.vp.viewport(X[[i]], ...)
  32: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 21 SKIPPED: 0 FAILED: 1
  1. Error: regress - plots (@test_stats.R#138) 
  
  Error: testthat unit tests failed
  Execution halted