Running ‘tinytest.R’
Running the tests in ‘tests/tinytest.R’ failed.
Complete output:
  > if ( requireNamespace("tinytest", quietly=TRUE) ){
  +   home <- (Sys.getenv('USERNAME') %in% c('vnguyen216', 'vinh')) # flag if at home; run tests involving parallel=TRUE at home only and not on CRAN
  +   
  +   if ("env" %in% names(as.list(args(utils::getFromNamespace("[.data.table", "data.table"))))) { # run test only if most recent version of data.table with dt[, env] functionality; https://stackoverflow.com/a/63023801
  +     tinytest::test_package('DisImpact', at_home = home)
  +   }
  + }
  
  test_consistency_of_iterate_functions.R    0 tests    
  Attaching package: 'dplyr'
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  
  test_consistency_of_iterate_functions.R    0 tests    
  Attaching package: 'data.table'
  
  The following objects are masked from 'package:dplyr':
  
      between, first, last
  
  The following object is masked from 'package:base':
  
      %notin%
  
  
  test_consistency_of_iterate_functions.R    0 tests    Loading required package: DBI
  
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    `summarise()` has grouped output by 'Math', 'English', 'Transfer',
  'Cohort_Math', 'Cohort_English', 'Cohort', 'Ethnicity', 'Gender', 'Ed_Goal'.
  You can override using the `.groups` argument.
  
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    `summarise()` has grouped output by 'Math', 'English', 'Transfer',
  'Cohort_Math', 'Cohort_English', 'Cohort', 'Ethnicity', 'Gender', 'Ed_Goal'.
  You can override using the `.groups` argument.
  
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    
  test_consistency_of_iterate_functions.R    0 tests    Error in `pmap()`:
  ℹ In index: 1.
  Caused by error in `[.data.table`:
  ! attempt access index 8/8 in VECTOR_ELT
  Backtrace:
       ▆
    1. ├─tinytest::test_package("DisImpact", at_home = home)
    2. │ └─tinytest::run_test_dir(...)
    3. │   └─base::lapply(...)
    4. │     └─tinytest (local) FUN(X[[i]], ...)
    5. │       └─base::eval(expr, envir = e)
    6. │         └─base::eval(expr, envir = e)
    7. │           └─DisImpact::di_iterate_dt(...)
    8. │             ├─pmap(dScenarios, di_calc_dt, dt = dt_summ) %>% rbindlist
    9. │             └─purrr::pmap(dScenarios, di_calc_dt, dt = dt_summ)
   10. │               └─purrr:::pmap_("list", .l, .f, ..., .progress = .progress)
   11. │                 ├─purrr:::with_indexed_errors(...)
   12. │                 │ └─base::withCallingHandlers(...)
   13. │                 ├─purrr:::call_with_cleanup(...)
   14. │                 └─DisImpact (local) .f(...)
   15. │                   ├─...[]
   16. │                   └─data.table:::`[.data.table`(...)
   17. ├─data.table::rbindlist(.)
   18. └─base::.handleSimpleError(...)
   19.   └─purrr (local) h(simpleError(msg, call))
   20.     └─cli::cli_abort(...)
   21.       └─rlang::abort(...)
  Execution halted