Running ‘testthat.R’ [36s/47s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > ################################################################################
  > # TODO LIST
  > # TODO: Add test for calculateResultType and other functions.
  > 
  > ################################################################################
  > # CHANGE LOG
  > # 24.12.2014: Second try, update to thestthat 0.8.1
  > # 05.12.2013: Updated to thestthat 0.8
  > 
  > 
  > # Load testthat package.
  > library(testthat)
  > 
  > # Run all tests.
  > test_check(package = "strvalidator")
  Loading required package: strvalidator
  STR-validator 2.4.2 loaded!
  Saving _problems/test-calculateAllT-51.R
  Saving _problems/test-calculateHb-53.R
  Saving _problems/test-calculateHeight-214.R
  Saving _problems/test-calculateLb-38.R
  Saving _problems/test-calculateStatistics-38.R
  [ FAIL 5 | WARN 1 | SKIP 0 | PASS 3576 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-calculateAllT.r:46:3'): calculateAllT ──────────────────────────
  Error in ``[.data.table`(DT, , `:=`(Observed, length(unique(Allele))), by = list(Sample.Name, Marker))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. ├─base::suppressMessages(...) at test-calculateAllT.r:46:3
   2. │ └─base::withCallingHandlers(...)
   3. └─strvalidator::calculateHeight(...)
   4.   └─strvalidator::calculateCopies(data = ref)
   5.     ├─...[]
   6.     └─data.table:::`[.data.table`(...)
  ── Error ('test-calculateHb.r:53:3'): calculateHb ──────────────────────────────
  Error in ``[.data.table`(DT, !is.na(Height), `:=`(Peaks, .N), list(Sample.Name, Marker))`: attempt access index 6/6 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─strvalidator::calculateHb(...) at test-calculateHb.r:53:3
   2.   ├─DT[!is.na(Height), `:=`(Peaks, .N), list(Sample.Name, Marker)]
   3.   └─data.table:::`[.data.table`(...)
  ── Error ('test-calculateHeight.r:214:3'): calculateHeight ─────────────────────
  Error in ``[.data.table`(DT, , `:=`(Peaks, sum(!is.na(Height))), by = list(Sample.Name))`: attempt access index 4/4 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─strvalidator::calculateHeight(...) at test-calculateHeight.r:214:3
   2.   ├─DT[, `:=`(Peaks, sum(!is.na(Height))), by = list(Sample.Name)]
   3.   └─data.table:::`[.data.table`(...)
  ── Error ('test-calculateLb.r:34:3'): calculateLb ──────────────────────────────
  Error in ``[.data.table`(res, , `:=`(Lb, TPH/TPPH), by = list(Sample.Name, Dye, Marker))`: attempt access index 6/6 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─strvalidator::calculateLb(...) at test-calculateLb.r:34:3
   2.   ├─res[, `:=`(Lb, TPH/TPPH), by = list(Sample.Name, Dye, Marker)]
   3.   └─data.table:::`[.data.table`(...)
  ── Error ('test-calculateStatistics.r:38:3'): calculateStatistics ──────────────
  Error in ``[.data.table`(DT, !is.na(Height), `:=`(Peaks, .N), list(Sample.Name, Marker))`: attempt access index 5/5 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─strvalidator::calculateHb(...) at test-calculateStatistics.r:38:3
   2.   ├─DT[!is.na(Height), `:=`(Peaks, .N), list(Sample.Name, Marker)]
   3.   └─data.table:::`[.data.table`(...)
  
  [ FAIL 5 | WARN 1 | SKIP 0 | PASS 3576 ]
  Error:
  ! Test failures.
  Execution halted