Running ‘testthat.R’ [8s/12s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > ## use shift-cmd-t to run all tests
  > library(testthat)
  > test_check("radiant.multivariate")
  Loading required package: radiant.multivariate
  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
  
  ── 1. Error: Conjoint on mp3 data (@test_stats.R#109)  ─────────────────────────
  (list) object cannot be coerced to type 'double'
  1: capture_output(summary(result)) at testthat/test_stats.R:109
  2: capture_output_lines(code, print, width = width)
  3: eval_with_output(code, print = print, width = width)
  4: withr::with_output_sink(temp, withVisible(code))
  5: force(code)
  6: withVisible(code)
  7: summary(result)
  8: summary.conjoint(result)
  9: coeff[, 2] %<>% {
         sprintf(paste0("%.", dec, "f"), .)
     }
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: eval(quote(`_fseq`(`_lhs`)), env, env)
  13: `_fseq`(`_lhs`)
  14: freduce(value, `_function_list`)
  15: withVisible(function_list[[k]](value))
  16: function_list[[k]](value)
  17: sprintf(paste0("%.", dec, "f"), .)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 6 SKIPPED: 0 FAILED: 1
  1. Error: Conjoint on mp3 data (@test_stats.R#109) 
  
  Error: testthat unit tests failed
  Execution halted