Running ‘testthat.R’ [4s/6s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(thurstonianIRT)
  Loading required package: Rcpp
  > 
  > test_check("thurstonianIRT")
  [ FAIL 7 | WARN 0 | SKIP 1 | PASS 0 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • Mplus is not open source software (1)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('tests.lavaan.R:6:3'): lavaan code for bernoulli responses works ─────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─thurstonianIRT::sim_TIRT_data(...) at tests.lavaan.R:6:2
   2.   ├─base::`[<-`(`*tmp*`, data$block == i, "itemC", value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, data$block == i, "itemC", value = `<dbl>`)
   4.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   5.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   6.         ├─base::withCallingHandlers(...)
   7.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('tests.lavaan.R:33:3'): lavaan code for gaussian responses works ─────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─thurstonianIRT::sim_TIRT_data(...) at tests.lavaan.R:33:2
   2.   ├─base::`[<-`(`*tmp*`, data$block == i, "itemC", value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, data$block == i, "itemC", value = `<dbl>`)
   4.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   5.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   6.         ├─base::withCallingHandlers(...)
   7.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('tests.make_TIRT_data.R:18:3'): make_TIRT_data works correctly for binary data ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─thurstonianIRT::make_TIRT_data(...) at tests.make_TIRT_data.R:18:2
   2.   ├─base::`[<-`(`*tmp*`, rows, "itemC", value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, rows, "itemC", value = `<dbl>`)
   4.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   5.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   6.         ├─base::withCallingHandlers(...)
   7.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('tests.make_TIRT_data.R:40:3'): make_TIRT_data works correctly for rank data ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─thurstonianIRT::make_TIRT_data(...) at tests.make_TIRT_data.R:40:2
   2.   ├─base::`[<-`(`*tmp*`, rows, "itemC", value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, rows, "itemC", value = `<dbl>`)
   4.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   5.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   6.         ├─base::withCallingHandlers(...)
   7.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('tests.stan.R:6:3'): Stan code for bernoulli responses works ─────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─thurstonianIRT::sim_TIRT_data(...) at tests.stan.R:6:2
   2.   ├─base::`[<-`(`*tmp*`, data$block == i, "itemC", value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, data$block == i, "itemC", value = `<dbl>`)
   4.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   5.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   6.         ├─base::withCallingHandlers(...)
   7.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('tests.stan.R:39:3'): Stan code for ordinal responses works ──────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─thurstonianIRT::sim_TIRT_data(...) at tests.stan.R:39:2
   2.   ├─base::`[<-`(`*tmp*`, data$block == i, "itemC", value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, data$block == i, "itemC", value = `<dbl>`)
   4.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   5.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   6.         ├─base::withCallingHandlers(...)
   7.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('tests.stan.R:65:3'): Stan code for gaussian responses works ─────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─thurstonianIRT::sim_TIRT_data(...) at tests.stan.R:65:2
   2.   ├─base::`[<-`(`*tmp*`, data$block == i, "itemC", value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, data$block == i, "itemC", value = `<dbl>`)
   4.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   5.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   6.         ├─base::withCallingHandlers(...)
   7.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 7 | WARN 0 | SKIP 1 | PASS 0 ]
  Error: Test failures
  Execution halted