Running ‘testthat.R’ [246s/437s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library("testthat")
  > library("sentopics")
  > 
  > # For solving 'Examples with CPU time > 2.5 times elapsed time'
  > Sys.setenv("OMP_THREAD_LIMIT" = 2)
  > 
  > if (Sys.getenv("R_COVR") != "true") {
  +   test_check("sentopics")
  + } else {
  +   test_check("sentopics", reporter = default_reporter())
  +   # test_check("sentopics", reporter = LocationReporter)
  + }
  OMP: Warning #96: Cannot form a team with 8 threads, using 2 instead.
  OMP: Hint Consider unsetting KMP_DEVICE_THREAD_LIMIT (KMP_ALL_THREADS), KMP_TEAMS_THREAD_LIMIT, and OMP_THREAD_LIMIT (if any are set).
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  [ FAIL 1 | WARN 0 | SKIP 1 | PASS 342 ]
  
  ══ Skipped tests (1) ═══════════════════════════════════════════════════════════
  • On CRAN (1): 'test-parallel_chains.R:97:5'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-basic.R:66:3'): topWords methods works ─────────────────────────
  Error in ``[.data.table`(phiStats, , `:=`("exclusivity", value/sum(value)), by = word)`: attempt access index 4/4 in VECTOR_ELT
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(tops <- topWords(sentopicmodel, method = "FREX")) at test-basic.R:66:3
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. └─sentopics::topWords(sentopicmodel, method = "FREX")
   10.   └─sentopics:::topWords_dt(x, nWords, method, w)
   11.     ├─phiStats[, `:=`("exclusivity", value/sum(value)), by = word]
   12.     └─data.table:::`[.data.table`(...)
  
  [ FAIL 1 | WARN 0 | SKIP 1 | PASS 342 ]
  Error:
  ! Test failures.
  Execution halted