Running ‘testthat.R’ [103s/149s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > test_check("emuR")
  Loading required package: emuR
  
  Attaching package: 'emuR'
  
  The following object is masked from 'package:base':
  
      norm
  
  ── 1. Error: exporting every level works (@test_emuR-export_TextGridCollection.R
  replacement has 35 rows, data has 34
  1: export_TextGridCollection(ae, targetDir = file.path(path2testData, "tgCol"), verbose = F) at testthat/test_emuR-export_TextGridCollection.R:31
  2: `[<-`(`*tmp*`, curRowIdx, , value = structure(list(labels = "", start = 2.604425, 
         end = 2.90445, utts = "", db_uuid = "", session = "", bundle = "", start_item_id = "", 
         end_item_id = "", level = "", start_item_seq_idx = "", end_item_seq_idx = "", 
         type = "", sample_start = "", sample_end = "", sample_rate = ""), row.names = "11", class = "data.frame"))
  3: `[<-.data.frame`(`*tmp*`, curRowIdx, , value = structure(list(labels = "", start = 2.604425, 
         end = 2.90445, utts = "", db_uuid = "", session = "", bundle = "", start_item_id = "", 
         end_item_id = "", level = "", start_item_seq_idx = "", end_item_seq_idx = "", 
         type = "", sample_start = "", sample_end = "", sample_rate = ""), row.names = "11", class = "data.frame"))
  4: xpdrows.data.frame(x, rows, new.rows)
  5: `[[<-`(`*tmp*`, i, value = c("", "V", "m", "V", "N", "s", "t", "@:", "f", "r", "E", 
     "n", "z", "S", "i:", "w", "@", "z", "k", "@", "n", "s", "I", "d", "@", "d", "d->b", 
     "j", "u:", "d", "@", "f", "@", "l", NA))
  6: `[[<-.data.frame`(`*tmp*`, i, value = c("", "V", "m", "V", "N", "s", "t", "@:", "f", 
     "r", "E", "n", "z", "S", "i:", "w", "@", "z", "k", "@", "n", "s", "I", "d", "@", 
     "d", "d->b", "j", "u:", "d", "@", "f", "@", "l", NA))
  7: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  ── 2. Error: exporting only msajc003 works (@test_emuR-export_TextGridCollection
  replacement has 35 rows, data has 34
  1: export_TextGridCollection(ae, targetDir = file.path(path2testData, "tgCol"), bundlePattern = "msajc003", 
         verbose = F) at testthat/test_emuR-export_TextGridCollection.R:55
  2: `[<-`(`*tmp*`, curRowIdx, , value = structure(list(labels = "", start = 2.604425, 
         end = 2.90445, utts = "", db_uuid = "", session = "", bundle = "", start_item_id = "", 
         end_item_id = "", level = "", start_item_seq_idx = "", end_item_seq_idx = "", 
         type = "", sample_start = "", sample_end = "", sample_rate = ""), row.names = "11", class = "data.frame"))
  3: `[<-.data.frame`(`*tmp*`, curRowIdx, , value = structure(list(labels = "", start = 2.604425, 
         end = 2.90445, utts = "", db_uuid = "", session = "", bundle = "", start_item_id = "", 
         end_item_id = "", level = "", start_item_seq_idx = "", end_item_seq_idx = "", 
         type = "", sample_start = "", sample_end = "", sample_rate = ""), row.names = "11", class = "data.frame"))
  4: xpdrows.data.frame(x, rows, new.rows)
  5: `[[<-`(`*tmp*`, i, value = c("", "V", "m", "V", "N", "s", "t", "@:", "f", "r", "E", 
     "n", "z", "S", "i:", "w", "@", "z", "k", "@", "n", "s", "I", "d", "@", "d", "d->b", 
     "j", "u:", "d", "@", "f", "@", "l", NA))
  6: `[[<-.data.frame`(`*tmp*`, i, value = c("", "V", "m", "V", "N", "s", "t", "@:", "f", 
     "r", "E", "n", "z", "S", "i:", "w", "@", "z", "k", "@", "n", "s", "I", "d", "@", 
     "d", "d->b", "j", "u:", "d", "@", "f", "@", "l", NA))
  7: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  ── 3. Error: empty time segments are treated correctly (@test_emuR-export_TextGr
  replacement has 34 rows, data has 33
  1: export_TextGridCollection(ae, targetDir = file.path(path2testData, "tgCol"), bundlePattern = "msajc010", 
         verbose = F) at testthat/test_emuR-export_TextGridCollection.R:69
  2: `[<-`(`*tmp*`, curRowIdx, , value = structure(list(labels = "", start = 2.753975, 
         end = 3.054, utts = "", db_uuid = "", session = "", bundle = "", start_item_id = "", 
         end_item_id = "", level = "", start_item_seq_idx = "", end_item_seq_idx = "", 
         type = "", sample_start = "", sample_end = "", sample_rate = ""), row.names = "11", class = "data.frame"))
  3: `[<-.data.frame`(`*tmp*`, curRowIdx, , value = structure(list(labels = "", start = 2.753975, 
         end = 3.054, utts = "", db_uuid = "", session = "", bundle = "", start_item_id = "", 
         end_item_id = "", level = "", start_item_seq_idx = "", end_item_seq_idx = "", 
         type = "", sample_start = "", sample_end = "", sample_rate = ""), row.names = "11", class = "data.frame"))
  4: xpdrows.data.frame(x, rows, new.rows)
  5: `[[<-`(`*tmp*`, i, value = c("", "I", "t", "I", "z", "f", "j", "u:", "t", "ai", "l", 
     "t", "u:", "O", "f", "@", "@->r", "E", "n", "i:", "f", "@:", "D", "@", "r", "@", 
     "z", "I", "s", "t", "@", "n", "s", NA))
  6: `[[<-.data.frame`(`*tmp*`, i, value = c("", "I", "t", "I", "z", "f", "j", "u:", "t", 
     "ai", "l", "t", "u:", "O", "f", "@", "@->r", "E", "n", "i:", "f", "@:", "D", "@", 
     "r", "@", "z", "I", "s", "t", "@", "n", "s", NA))
  7: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  Read 16 items
  Read 12 records
  Read 24 items
  Read 20 records
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 731 SKIPPED: 40 FAILED: 3
  1. Error: exporting every level works (@test_emuR-export_TextGridCollection.R#31) 
  2. Error: exporting only msajc003 works (@test_emuR-export_TextGridCollection.R#55) 
  3. Error: empty time segments are treated correctly (@test_emuR-export_TextGridCollection.R#69) 
  
  Error: testthat unit tests failed
  In addition: Warning message:
  call dbDisconnect() when finished working with a connection 
  Execution halted