Running 'testthat.R' [50s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library("testthat")
  > library("GGIR")
  > test_check("GGIR")
  [1] "P1 file1"
  [1] "---------------------------------------------"
  [1] "investigate calibration of the sensors..."
  
  Loading block: 1 2 3 4 5
  End of file reached
  
  stop reading because there is not enough data in this block
  
  ----------------------------------------
  Summary of autocalibration procedure:
  
  Status:
  [1] "recalibration attempted with all available data, but possibly not good enough: Check calibration error variable to varify this"
  
  Calibration error (g) before:
  [1] 0.0192494
  
  Callibration error (g) after:
  [1] 0.004983094
  
  Offset correction:
  [1] -5.653380e-04  8.736127e-06 -2.656546e-05
  
  Scale correction:
  [1] 0.9847248 0.9838715 0.9843549
  
  Number of hours used:
  [1] 48
  
  Number of 10 second windows around the sphere:
  [1] 9807
  
  Temperature used (if available):
  [1] FALSE
  
  Temperature offset (if temperature is available):
  [1] 0 0 0
  
  ----------------------------------------
  [1] "get meta data..."
  
  Loading chunk: 1 2 3
  End of file reached
  [1] "save .RData-file with: calibration report, file inspection report and all meta data..."
   1 1 1 1 1-- 1. Error: chainof5parts (@test_chainof5parts.R#71)  -------------------------
  replacement has 1 row, data has 0
  1: g.part3(metadatadir = metadatadir, f0 = 1, f1 = 1, anglethreshold = 5, desiredtz = desiredtz, 
         timethreshold = 5, ignorenonwear = FALSE, overwrite = TRUE, do.part3.pdf = TRUE) at testthat/test_chainof5parts.R:71
  2: g.sib.sum(SLE, M, ignorenonwear = ignorenonwear, desiredtz = desiredtz)
  3: `[<-`(`*tmp*`, cnt, lex, value = 1L)
  4: `[<-.data.frame`(`*tmp*`, cnt, lex, value = 1L)
  5: xpdrows.data.frame(x, rows, new.rows)
  6: `[[<-`(`*tmp*`, i, value = NA_real_)
  7: `[[<-.data.frame`(`*tmp*`, i, value = NA_real_)
  8: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  == testthat results  ===========================================================
  OK: 58 SKIPPED: 0 FAILED: 1
  1. Error: chainof5parts (@test_chainof5parts.R#71) 
  
  Error: testthat unit tests failed
  Execution halted