Running 'testthat.R' [6s/6s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(JSmediation)
  > 
  > test_check("JSmediation")
  Test of mediation (moderated mediation)
  ==============================================
  
  Variables:
  
  - IV: condition_c 
  - DV: hypodescent 
  - M: linkedfate_c 
  - Mod: sdo 
  
  Paths:
  
  ========  ==============  =====  =======================
  Path      Point estimate     SE  APA                    
  ========  ==============  =====  =======================
  a                 -1.469  0.194  t(820) = 7.58, p < .001
  a * Mod            0.323  0.076  t(820) = 4.25, p < .001
  b                  0.240  0.079  t(818) = 3.02, p = .003
  b * Mod           -0.049  0.031  t(818) = 1.57, p = .117
  c                 -0.211  0.189  t(820) = 1.12, p = .265
  c * Mod            0.035  0.074  t(820) = 0.47, p = .640
  c'                 0.061  0.201  t(818) = 0.30, p = .763
  c' * Mod          -0.035  0.077  t(818) = 0.46, p = .645
  ========  ==============  =====  =======================
  
  Indirect effect index:
  
  Indirect effect index is not computed by default.
  Please use add_index() to compute it.
  
  Fitted models:
  
  - X * Mod -> Y 
  - X * Mod -> M 
  - (X + M) * Mod -> Y 
  -- 1. Error: mdt_within does not throw error (@test-mdt_within.R#4)  -----------
  Must extract column with a single subscript.
  x The subscript `var` has the wrong type `glue`.
  i It must be numeric or character.
  Backtrace:
    1. testthat::expect_silent(...)
   10. JSmediation:::mdt_within.data.frame(...)
   10. dplyr::pull(., DV_cond_1_name)
   21. tidyselect::vars_pull(names(.data), !!enquo(var))
   22. tidyselect:::pull_as_location2(loc, n, vars)
   30. vctrs::vec_as_subscript2(i, arg = "var", logical = "error")
   31. vctrs:::result_get(...)
  
  -- 2. Error: add_index method for mdt_within does not throw error (@test-mdt_wit
  Must extract column with a single subscript.
  x The subscript `var` has the wrong type `glue`.
  i It must be numeric or character.
  Backtrace:
    1. JSmediation::mdt_within(...)
    2. JSmediation:::mdt_within.data.frame(...)
   10. dplyr::pull(., DV_cond_1_name)
   13. tidyselect::vars_pull(names(.data), !!enquo(var))
   14. tidyselect:::pull_as_location2(loc, n, vars)
   22. vctrs::vec_as_subscript2(i, arg = "var", logical = "error")
   23. vctrs:::result_get(...)
  
  -- 3. Error: print method for mdt_within does not throw error (@test-mdt_within.
  Must extract column with a single subscript.
  x The subscript `var` has the wrong type `glue`.
  i It must be numeric or character.
  Backtrace:
    1. JSmediation::mdt_within(...)
    2. JSmediation:::mdt_within.data.frame(...)
   10. dplyr::pull(., DV_cond_1_name)
   13. tidyselect::vars_pull(names(.data), !!enquo(var))
   14. tidyselect:::pull_as_location2(loc, n, vars)
   22. vctrs::vec_as_subscript2(i, arg = "var", logical = "error")
   23. vctrs:::result_get(...)
  
  == testthat results  ===========================================================
  [ OK: 27 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 3 ]
  1. Error: mdt_within does not throw error (@test-mdt_within.R#4) 
  2. Error: add_index method for mdt_within does not throw error (@test-mdt_within.R#12) 
  3. Error: print method for mdt_within does not throw error (@test-mdt_within.R#23) 
  
  Error: testthat unit tests failed
  Execution halted