Running ‘testthat.R’ [10s/27s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(pavo)
  > 
  > test_check("pavo")
  ── 1. Error: classify (@test-images.R#79)  ─────────────────────────────────────
  attempt to set an attribute on NULL
  1: classify(imgfakes, kcols = fake_IDs) at testthat/test-images.R:79
  
  ── 2. Error: adjacency (@test-images.R#156)  ───────────────────────────────────
  attempt to set an attribute on NULL
  1: classify(imgfakes, kcols = 2) at testthat/test-images.R:156
  
  Read 10820 items
  ── 3. Error: getspec (@test-import.R#25)  ──────────────────────────────────────
  write error, closing pipe to the master
  1: suppressMessages(getspec(system.file("testdata", package = "pavo"), ext = "ProcSpec")) at testthat/test-import.R:25
  2: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  3: getspec(system.file("testdata", package = "pavo"), ext = "ProcSpec")
  4: pbmclapply(files, function(x) tryCatch(gsp(x), error = function(e) NULL, warning = function(e) NULL), 
         mc.cores = cores)
  5: mclapply(X, FUN, ..., mc.cores = mc.cores, mc.preschedule = mc.preschedule, mc.set.seed = mc.set.seed, 
         mc.cleanup = mc.cleanup, mc.allow.recursive = mc.allow.recursive)
  6: lapply(seq_len(cores), inner.do)
  7: FUN(X[[i]], ...)
  8: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  
  Read 18823 items
  Read 10824 items
  ── 3. Failure: getspec (@test-import.R#27)  ────────────────────────────────────
  `proc` has length 3, not length 4.
  
  Read 18823 items
  Read 10824 items
  Read 10820 items
  ── 4. Error: getspec (@test-import.R#30)  ──────────────────────────────────────
  write error, closing pipe to the master
  1: suppressMessages(getspec(system.file("testdata", package = "pavo"), ext = "procspec")) at testthat/test-import.R:30
  2: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  3: getspec(system.file("testdata", package = "pavo"), ext = "procspec")
  4: pbmclapply(files, function(x) tryCatch(gsp(x), error = function(e) NULL, warning = function(e) NULL), 
         mc.cores = cores)
  5: mclapply(X, FUN, ..., mc.cores = mc.cores, mc.preschedule = mc.preschedule, mc.set.seed = mc.set.seed, 
         mc.cleanup = mc.cleanup, mc.allow.recursive = mc.allow.recursive)
  6: lapply(seq_len(cores), inner.do)
  7: FUN(X[[i]], ...)
  8: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 144 SKIPPED: 0 FAILED: 3
  1. Error: classify (@test-images.R#79) 
  2. Error: adjacency (@test-images.R#156) 
  3. Failure: getspec (@test-import.R#27) 
  
  Error: testthat unit tests failed
  Execution halted