Running ‘testthat.R’ [38s/54s]
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.0.0 loaded!
  ── 1. Error: calculateHb (@test-calculateHb.r#56)  ─────────────────────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: calculateHb(data = set2, ref = ref2, hb = 1, kit = "SGMplus", ignore.case = TRUE) at testthat/test-calculateHb.r:56
  2: DT[!is.na(Height), `:=`(Peaks, .N), list(Sample.Name, Marker)]
  3: `[.data.table`(DT, !is.na(Height), `:=`(Peaks, .N), list(Sample.Name, Marker))
  
  ── 2. Error: calculateHeight (@test-calculateHeight.r#93)  ─────────────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: calculateHeight(data = df1, na = NULL, add = FALSE) at testthat/test-calculateHeight.r:93
  2: DT[, list(TPH = sum(Height, na.rm = TRUE), Peaks = sum(!is.na(Height))), by = list(Sample.Name)]
  3: `[.data.table`(DT, , list(TPH = sum(Height, na.rm = TRUE), Peaks = sum(!is.na(Height))), 
         by = list(Sample.Name))
  
  ── 3. Error: calculateLb (@test-calculateLb.r#38)  ─────────────────────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: calculateLb(data = set2, ref = NULL, option = "prop", by.dye = TRUE, ol.rm = FALSE, 
         sex.rm = FALSE, na = NULL, kit = "SGMplus", ignore.case = TRUE, word = FALSE, 
         exact = FALSE) at testthat/test-calculateLb.r:38
  2: DT[, list(Marker = length(unique(Marker))), by = list(Sample.Name)]
  3: `[.data.table`(DT, , list(Marker = length(unique(Marker))), by = list(Sample.Name))
  
  ── 4. Error: tableBalance (@test-tableBalance.r#40)  ───────────────────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: calculateHb(data = set2, ref = ref2, hb = 3, kit = "SGMPlus", ignore.case = TRUE) at testthat/test-tableBalance.r:40
  2: DT[!is.na(Height), `:=`(Peaks, .N), list(Sample.Name, Marker)]
  3: `[.data.table`(DT, !is.na(Height), `:=`(Peaks, .N), list(Sample.Name, Marker))
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 3624 SKIPPED: 0 FAILED: 4
  1. Error: calculateHb (@test-calculateHb.r#56) 
  2. Error: calculateHeight (@test-calculateHeight.r#93) 
  3. Error: calculateLb (@test-calculateLb.r#38) 
  4. Error: tableBalance (@test-tableBalance.r#40) 
  
  Error: testthat unit tests failed
  Execution halted