Running ‘testthat.R’ [4s/6s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > 
  > test_check("ahp")
  Loading required package: ahp
  ── 1. Error: Analyze Identity (@test-Analyze.R#9)  ─────────────────────────────
  not a function
  1: Analyze(carAhp) at testthat/test-Analyze.R:9
  2: GetDataFrame(ahpTree, decisionMaker, variable, sort, pruneFun)
  3: Clone(ahpTree)
  4: .Clone(node, pruneFun, attributes)
  5: node$clone()
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 2. Error: Analyze Identity 2 (@test-Analyze.R#21)  ──────────────────────────
  not a function
  1: Analyze(carAhp, variable = "priority") at testthat/test-Analyze.R:21
  2: GetDataFrame(ahpTree, decisionMaker, variable, sort, pruneFun)
  3: Clone(ahpTree)
  4: .Clone(node, pruneFun, attributes)
  5: node$clone()
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 3. Error: Analyze Prune (@test-Analyze.R#34)  ───────────────────────────────
  not a function
  1: Analyze(carAhp, sort = "orig", pruneFun = function(x, decisionMaker) {
         PruneLevels(x, decisionMaker, 1) && PruneByCutoff(x, decisionMaker, minWeight = 0.05)
     }) at testthat/test-Analyze.R:34
  2: GetDataFrame(ahpTree, decisionMaker, variable, sort, pruneFun)
  3: do.call(ToDataFrameTree, c(ahpTree, "name", "level", Weight = function(x) sum(x$weightContribution[decisionMaker, 
         ]), Priority = function(x) ifelse(x$isRoot, 1, x$parent$priority[decisionMaker, 
         x$name]), GetVariableV(nms, decisionMaker = decisionMaker, variable = variable[1]), 
         Inconsistency = function(x) x$consistency[decisionMaker], pruneFun = function(x) !x$isLeaf && 
             pruneFun(x, decisionMaker)))
  4: (function (x, ..., pruneFun = NULL) 
     {
         as.data.frame(x, row.names = NULL, optional = FALSE, ..., pruneFun = pruneFun)
     })(<environment>, "name", "level", Weight = function (x) 
     sum(x$weightContribution[decisionMaker, ]), Priority = function (x) 
     ifelse(x$isRoot, 1, x$parent$priority[decisionMaker, x$name]), `Accord Sedan` = function (node) 
     {
         if (is.null(node[[variable]])) 
             return(formatter(NA))
         if (!alternative %in% colnames(node[[variable]])) 
             return(formatter(NA))
         if (!decisionMaker %in% rownames(node[[variable]])) 
             return(formatter(NA))
         formatter(node[[variable]][decisionMaker, alternative])
     }, `Accord Hybrid` = function (node) 
     {
         if (is.null(node[[variable]])) 
             return(formatter(NA))
         if (!alternative %in% colnames(node[[variable]])) 
             return(formatter(NA))
         if (!decisionMaker %in% rownames(node[[variable]])) 
             return(formatter(NA))
         formatter(node[[variable]][decisionMaker, alternative])
     }, Pilot = function (node) 
     {
         if (is.null(node[[variable]])) 
             return(formatter(NA))
         if (!alternative %in% colnames(node[[variable]])) 
             return(formatter(NA))
         if (!decisionMaker %in% rownames(node[[variable]])) 
             return(formatter(NA))
         formatter(node[[variable]][decisionMaker, alternative])
     }, `CR-V` = function (node) 
     {
         if (is.null(node[[variable]])) 
             return(formatter(NA))
         if (!alternative %in% colnames(node[[variable]])) 
             return(formatter(NA))
         if (!decisionMaker %in% rownames(node[[variable]])) 
             return(formatter(NA))
         formatter(node[[variable]][decisionMaker, alternative])
     }, Element = function (node) 
     {
         if (is.null(node[[variable]])) 
             return(formatter(NA))
         if (!alternative %in% colnames(node[[variable]])) 
             return(formatter(NA))
         if (!decisionMaker %in% rownames(node[[variable]])) 
             return(formatter(NA))
         formatter(node[[variable]][decisionMaker, alternative])
     }, Odyssey = function (node) 
     {
         if (is.null(node[[variable]])) 
             return(formatter(NA))
         if (!alternative %in% colnames(node[[variable]])) 
             return(formatter(NA))
         if (!decisionMaker %in% rownames(node[[variable]])) 
             return(formatter(NA))
         formatter(node[[variable]][decisionMaker, alternative])
     }, Inconsistency = function (x) 
     x$consistency[decisionMaker], pruneFun = function (x) 
     !x$isLeaf && pruneFun(x, decisionMaker))
  5: as.data.frame(x, row.names = NULL, optional = FALSE, ..., pruneFun = pruneFun)
  6: as.data.frame.Node(x, row.names = NULL, optional = FALSE, ..., pruneFun = pruneFun)
  7: Clone(x, attributes = TRUE)
  8: .Clone(node, pruneFun, attributes)
  9: node$clone()
  10: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  11: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 4. Error: Analyze Prune 2 (@test-Analyze.R#54)  ─────────────────────────────
  not a function
  1: AnalyzeTable(carAhp, variable = "priority", pruneFun = function(x, decisionMaker) {
         PruneByCutoff(x, decisionMaker, minWeight = 0.6)
     }) at testthat/test-Analyze.R:54
  2: GetDataFrame(ahpTree = ahpTree, decisionMaker = decisionMaker, variable = variable, 
         sort = sort, pruneFun = pruneFun)
  3: Clone(ahpTree)
  4: .Clone(node, pruneFun, attributes)
  5: node$clone()
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 5. Error: Load v1.0 (@test-Load.R#8)  ───────────────────────────────────────
  not a function
  1: Analyze(tdhAhp) at testthat/test-Load.R:8
  2: GetDataFrame(ahpTree, decisionMaker, variable, sort, pruneFun)
  3: Clone(ahpTree)
  4: .Clone(node, pruneFun, attributes)
  5: node$clone()
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 6. Error: Load from string (@test-Load.R#19)  ───────────────────────────────
  not a function
  1: Analyze(carAhp) at testthat/test-Load.R:19
  2: GetDataFrame(ahpTree, decisionMaker, variable, sort, pruneFun)
  3: Clone(ahpTree)
  4: .Clone(node, pruneFun, attributes)
  5: node$clone()
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 7. Error: Load vacation (@test-Load.R#29)  ──────────────────────────────────
  not a function
  1: Analyze(vacationAhp) at testthat/test-Load.R:29
  2: GetDataFrame(ahpTree, decisionMaker, variable, sort, pruneFun)
  3: Clone(ahpTree)
  4: .Clone(node, pruneFun, attributes)
  5: node$clone()
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 8. Error: Load all examples (@test-Load.R#40)  ──────────────────────────────
  not a function
  1: Analyze(ahpTree) at testthat/test-Load.R:40
  2: GetDataFrame(ahpTree, decisionMaker, variable, sort, pruneFun)
  3: Clone(ahpTree)
  4: .Clone(node, pruneFun, attributes)
  5: node$clone()
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 9. Error: Visualize (@test-Visualize.R#8)  ──────────────────────────────────
  not a function
  1: GetGraph(carAhp) at testthat/test-Visualize.R:8
  2: ToDataFrameNetwork(Clone(ahpTree, pruneFun = isNotLeaf), fromId = function(node) node$parent$.id, 
         toId = ".id")
  3: AreNamesUnique(x)
  4: Clone(ahpTree, pruneFun = isNotLeaf)
  5: .Clone(node, pruneFun, attributes)
  6: node$clone()
  7: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  8: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 10. Error: (unknown) (@test-ahpBasics.R#7)  ─────────────────────────────────
  not a function
  1: Analyze(carAhp) at testthat/test-ahpBasics.R:7
  2: GetDataFrame(ahpTree, decisionMaker, variable, sort, pruneFun)
  3: Clone(ahpTree)
  4: .Clone(node, pruneFun, attributes)
  5: node$clone()
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 5 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 10 ]
  1.  Error: Analyze Identity (@test-Analyze.R#9) 
  2.  Error: Analyze Identity 2 (@test-Analyze.R#21) 
  3.  Error: Analyze Prune (@test-Analyze.R#34) 
  4.  Error: Analyze Prune 2 (@test-Analyze.R#54) 
  5.  Error: Load v1.0 (@test-Load.R#8) 
  6.  Error: Load from string (@test-Load.R#19) 
  7.  Error: Load vacation (@test-Load.R#29) 
  8.  Error: Load all examples (@test-Load.R#40) 
  9.  Error: Visualize (@test-Visualize.R#8) 
  10. Error: (unknown) (@test-ahpBasics.R#7) 
  
  Error: testthat unit tests failed
  Execution halted