Running 'testthat.R' [2s/4s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library("testthat")
  > library("stemmatology")
  > test_check("stemmatology")
  -- 1. Error: yields expected output on simple case (with no conflicts) (@test-PC
  could not find function "layout_as_tree"
  1: expect_equal(expect_message(PCC(x, ask = FALSE, threshold = 0.06)), results) at testthat/test-PCC.R:70
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: expect_message(PCC(x, ask = FALSE, threshold = 0.06))
  5: quasi_capture(enquo(object), capture_messages, label = label)
  6: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  7: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  8: eval_bare(get_expr(quo), get_env(quo))
  9: PCC(x, ask = FALSE, threshold = 0.06)
  10: PCC.Stemma(pccExploratory$database, limit = limit, recoverNAs = recoverNAs, layout_as_stemma = layout_as_stemma, 
         ask = ask, verbose = verbose)
  
  -- 2. Error: yields expected output on simple case (with conflicts) (@test-PCC.R
  could not find function "layout_as_tree"
  1: expect_equal(expect_message(PCC(x, ask = FALSE, threshold = 0.6)), results) at testthat/test-PCC.R:142
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: expect_message(PCC(x, ask = FALSE, threshold = 0.6))
  5: quasi_capture(enquo(object), capture_messages, label = label)
  6: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  7: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  8: eval_bare(get_expr(quo), get_env(quo))
  9: PCC(x, ask = FALSE, threshold = 0.6)
  10: PCC.Stemma(pccExploratory$database, limit = limit, recoverNAs = recoverNAs, layout_as_stemma = layout_as_stemma, 
         ask = ask, verbose = verbose)
  
  -- 3. Error: PCC.Stemma works properly (@test-PCC.Stemma.R#56)  ----------------
  could not find function "layout_as_tree"
  1: expect_equal(PCC.Stemma(x, ask = FALSE), results) at testthat/test-PCC.Stemma.R:56
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: PCC.Stemma(x, ask = FALSE)
  
  -- 4. Error: PCC.Stemma works properly when no group can be built (@test-PCC.Ste
  could not find function "layout_as_tree"
  1: expect_equal(expect_message(PCC.Stemma(x, ask = FALSE)), results) at testthat/test-PCC.Stemma.R:109
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: expect_message(PCC.Stemma(x, ask = FALSE))
  5: quasi_capture(enquo(object), capture_messages, label = label)
  6: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  7: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  8: eval_bare(get_expr(quo), get_env(quo))
  9: PCC.Stemma(x, ask = FALSE)
  
  -- 5. Error: Layout as stemma works (@test-layout_as_stemma.R#11)  -------------
  could not find function "V"
  1: expect_equal(object = layout_as_stemma(edgelist), expected = structure(c(-1, -2, 
         -1, 0, 1, 1, 1, 0, -4, -2, 1, -9), .Dim = c(6L, 2L))) at testthat/test-layout_as_stemma.R:11
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: layout_as_stemma(edgelist)
  
  == testthat results  ===========================================================
  OK: 76 SKIPPED: 4 FAILED: 5
  1. Error: yields expected output on simple case (with no conflicts) (@test-PCC.R#70) 
  2. Error: yields expected output on simple case (with conflicts) (@test-PCC.R#142) 
  3. Error: PCC.Stemma works properly (@test-PCC.Stemma.R#56) 
  4. Error: PCC.Stemma works properly when no group can be built (@test-PCC.Stemma.R#109) 
  5. Error: Layout as stemma works (@test-layout_as_stemma.R#11) 
  
  Error: testthat unit tests failed
  Execution halted