Running ‘testthat.R’ [3s/3s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(explor)
  > 
  > test_check("explor")
  ── 1. Failure: Variables results are equal (@test_prepare_results_dudi.acm.R#28)
  as.vector(round(iner$col.abs[, 3], 3)) not equal to res$vars[res$vars$Type == "Active" & res$vars$Axis == "3", "Contrib"].
  29/29 mismatches (average diff: NaN)
  [1]  0.168 - NA == NA
  [2]  0.728 - NA == NA
  [3]  1.347 - NA == NA
  [4]  0.637 - NA == NA
  [5]  0.628 - NA == NA
  [6]  0.000 - NA == NA
  [7] 13.829 - NA == NA
  [8]  2.620 - NA == NA
  [9]  0.539 - NA == NA
  ...
  
  ── 2. Failure: Individuals results are equal (@test_prepare_results_dudi.acm.R#4
  as.vector(round(iner$row.abs[, 3], 3)) not equal to ...[].
  90/90 mismatches (average diff: NaN)
  [1] 1.086 - NA == NA
  [2] 0.318 - NA == NA
  [3] 0.076 - NA == NA
  [4] 0.134 - NA == NA
  [5] 1.222 - NA == NA
  [6] 0.326 - NA == NA
  [7] 0.249 - NA == NA
  [8] 4.744 - NA == NA
  [9] 1.411 - NA == NA
  ...
  
  ── 3. Error: (unknown) (@test_prepare_results_dudi.coa.R#12)  ──────────────────
  Evaluation error: cannot coerce type 'closure' to vector of type 'character'.
  1: prepare_results(coa) at testthat/test_prepare_results_dudi.coa.R:12
  2: prepare_results.coa(coa)
  3: tmp_col %>% bind_rows(tmp_row) %>% gather(Axis, Contrib, starts_with("Comp")) %>% 
         mutate(Axis = gsub("Comp", "", Axis, fixed = TRUE), Contrib = round(Contrib, 
             3))
  4: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: `_fseq`(`_lhs`)
  8: freduce(value, `_function_list`)
  9: withVisible(function_list[[k]](value))
  10: function_list[[k]](value)
  11: mutate(., Axis = gsub("Comp", "", Axis, fixed = TRUE), Contrib = round(Contrib, 3))
  12: mutate.data.frame(., Axis = gsub("Comp", "", Axis, fixed = TRUE), Contrib = round(Contrib, 
         3))
  13: as.data.frame(mutate(tbl_df(.data), ...))
  14: mutate(tbl_df(.data), ...)
  15: mutate.tbl_df(tbl_df(.data), ...)
  16: mutate_impl(.data, dots)
  
  ── 4. Failure: Variables results are equal (@test_prepare_results_dudi.pca.R#29)
  as.vector(round(iner$col.abs[, 3], 3)) not equal to res$vars[res$vars$Type == "Active" & res$vars$Axis == "3", "Contrib"].
  7/7 mismatches (average diff: NaN)
  [1]  2.109 - NA == NA
  [2]  1.537 - NA == NA
  [3]  0.397 - NA == NA
  [4] 42.128 - NA == NA
  [5]  5.448 - NA == NA
  [6] 14.679 - NA == NA
  [7] 33.702 - NA == NA
  
  ── 5. Failure: Individuals results are equal (@test_prepare_results_dudi.pca.R#4
  as.vector(round(iner$row.abs[, 3], 3)) not equal to ...[].
  94/94 mismatches (average diff: NaN)
  [1] 0.127 - NA == NA
  [2] 0.005 - NA == NA
  [3] 0.228 - NA == NA
  [4] 0.002 - NA == NA
  [5] 0.082 - NA == NA
  [6] 0.149 - NA == NA
  [7] 6.254 - NA == NA
  [8] 0.739 - NA == NA
  [9] 4.438 - NA == NA
  ...
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 87 SKIPPED: 0 FAILED: 5
  1. Failure: Variables results are equal (@test_prepare_results_dudi.acm.R#28) 
  2. Failure: Individuals results are equal (@test_prepare_results_dudi.acm.R#45) 
  3. Error: (unknown) (@test_prepare_results_dudi.coa.R#12) 
  4. Failure: Variables results are equal (@test_prepare_results_dudi.pca.R#29) 
  5. Failure: Individuals results are equal (@test_prepare_results_dudi.pca.R#43) 
  
  Error: testthat unit tests failed
  Execution halted