Running ‘testthat.R’ [2s/3s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
  > # * https://testthat.r-lib.org/articles/special-files.html
  > 
  > library(testthat)
  > library(pseudobibeR)
  > 
  > test_check("pseudobibeR")
  Saving _problems/test-features-6.R
  Saving _problems/test-snapshot-13.R
  Saving _problems/test-snapshot-19.R
  [ FAIL 3 | WARN 0 | SKIP 0 | PASS 2 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-features.R:6:1'): (code run outside of `test_that()`) ──────────
  Error in ``[.data.table`(out, , `:=`(paragraph_id, cumsum(is_newparagraph)), by = list(doc_id))`: attempt access index 5/5 in VECTOR_ELT
  Backtrace:
      ▆
   1. ├─base::suppressMessages(biber(udp, measure = "TTR", normalize = FALSE)) at test-features.R:6:1
   2. │ └─base::withCallingHandlers(...)
   3. ├─pseudobibeR::biber(udp, measure = "TTR", normalize = FALSE)
   4. └─pseudobibeR:::biber.udpipe_connlu(udp, measure = "TTR", normalize = FALSE)
   5.   ├─base::as.data.frame(tokens, stringsAsFactors = FALSE)
   6.   └─udpipe:::as.data.frame.udpipe_connlu(tokens, stringsAsFactors = FALSE)
   7.     └─udpipe:::read_connlu(x, is_udpipe_annotation = TRUE, ...)
   8.       ├─out[, `:=`(paragraph_id, cumsum(is_newparagraph)), by = list(doc_id)]
   9.       └─data.table:::`[.data.table`(...)
  ── Error ('test-snapshot.R:12:3'): counts are unchanged ────────────────────────
  Error in ``[.data.table`(out, , `:=`(paragraph_id, cumsum(is_newparagraph)), by = list(doc_id))`: attempt access index 5/5 in VECTOR_ELT
  Backtrace:
       ▆
    1. ├─testthat::expect_snapshot_value(...) at test-snapshot.R:12:3
    2. │ ├─testthat:::with_is_snapshotting(force(x))
    3. │ └─base::force(x)
    4. ├─base::suppressMessages(biber(udp, measure = "TTR", normalize = FALSE))
    5. │ └─base::withCallingHandlers(...)
    6. ├─pseudobibeR::biber(udp, measure = "TTR", normalize = FALSE)
    7. └─pseudobibeR:::biber.udpipe_connlu(udp, measure = "TTR", normalize = FALSE)
    8.   ├─base::as.data.frame(tokens, stringsAsFactors = FALSE)
    9.   └─udpipe:::as.data.frame.udpipe_connlu(tokens, stringsAsFactors = FALSE)
   10.     └─udpipe:::read_connlu(x, is_udpipe_annotation = TRUE, ...)
   11.       ├─out[, `:=`(paragraph_id, cumsum(is_newparagraph)), by = list(doc_id)]
   12.       └─data.table:::`[.data.table`(...)
  ── Error ('test-snapshot.R:19:3'): normalized output is unchanged ──────────────
  Error in ``[.data.table`(out, , `:=`(paragraph_id, cumsum(is_newparagraph)), by = list(doc_id))`: attempt access index 5/5 in VECTOR_ELT
  Backtrace:
       ▆
    1. ├─testthat::expect_snapshot_value(...) at test-snapshot.R:19:3
    2. │ ├─testthat:::with_is_snapshotting(force(x))
    3. │ └─base::force(x)
    4. ├─base::suppressMessages(biber(udp, measure = "TTR"))
    5. │ └─base::withCallingHandlers(...)
    6. ├─pseudobibeR::biber(udp, measure = "TTR")
    7. └─pseudobibeR:::biber.udpipe_connlu(udp, measure = "TTR")
    8.   ├─base::as.data.frame(tokens, stringsAsFactors = FALSE)
    9.   └─udpipe:::as.data.frame.udpipe_connlu(tokens, stringsAsFactors = FALSE)
   10.     └─udpipe:::read_connlu(x, is_udpipe_annotation = TRUE, ...)
   11.       ├─out[, `:=`(paragraph_id, cumsum(is_newparagraph)), by = list(doc_id)]
   12.       └─data.table:::`[.data.table`(...)
  
  [ FAIL 3 | WARN 0 | SKIP 0 | PASS 2 ]
  Error:
  ! Test failures.
  Execution halted