BIGr

Running ‘testthat.R’ [29s/90s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(BIGr)
  > 
  > test_check("BIGr")
  
  --- Parentage Assignment Summary ---
  Total progeny evaluated: 1 
    LOW_MARKERS   : 1 (100.0%)
  Min markers threshold : 10 
  Error threshold       : 5 %
  
  
  --- Parentage Assignment Results ---
     Progeny Male_Parent Female_Parent Mendelian_Error_Pct Markers_Tested
      <char>      <char>        <char>              <char>          <int>
  1:  child1          S1            D1                0.00              5
     Assignment_Status
                <char>
  1:       LOW_MARKERS
       ID Concordance
  1   ID1      91.67%
  2  ID10      95.45%
  3  ID11         90%
  4  ID12      94.74%
  5  ID13        100%
  6  ID14        100%
  7  ID15        100%
  8  ID16        100%
  9  ID17        100%
  10 ID18      89.47%
  11 ID19      93.75%
  12  ID2      95.45%
  13 ID20        100%
  14  ID3        100%
  15  I
...[truncated]...
rtag_report(...)
   3.     └─parallel::parLapply(...)
   4.       ├─base::do.call(...)
   5.       └─parallel::clusterApply(...)
   6.         └─parallel:::staticClusterApply(cl, fun, length(x), argfun)
   7.           └─parallel:::checkForRemoteErrors(val)
  ── Failure ('test-madc2vcf_all.R:104:3'): madc2vcf_all accepts BI_markerID matches when CloneID does not match ──
  Expected `madc2vcf_all(...)` not to throw any errors.
  Actually got a <simpleError> with message:
    one node produced an error: 'recursive' must be a length-1 vector
  
  [ FAIL 3 | WARN 0 | SKIP 4 | PASS 250 ]
  Error:
  ! Test failures.
  Warning messages:
  1: In for (i in seq_len(n)) { :
    closing unused connection 8 (<-localhost:11230)
  2: In for (i in seq_len(n)) { :
    closing unused connection 7 (<-localhost:11230)
  3: In for (i in seq_len(n)) { :
    closing unused connection 6 (<-localhost:11230)
  4: In for (i in seq_len(n)) { :
    closing unused connection 5 (<-localhost:11230)
  Execution halted