Running ‘testthat.R’ [4s/5s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(pmap)
  > 
  > set.seed(101)
  > 
  > test_check("pmap")
  ── 1. Error: create_pmap() should handle simple graph (@test_create_pmap.R#14)  
  `UQ()` can only be used within a quasiquoted argument
  1: create_pmap(eventlog, target_types = c("sale")) at testthat/test_create_pmap.R:14
  2: create_pmap_graph(nodes, edges, target_types)
  3: add_nodes_from_table(p, table = nodes, label_col = "name", type_col = "catalog")
  4: rlang::UQ(label_col) %>% paste()
  5: eval(lhs, parent, parent)
  6: eval(lhs, parent, parent)
  7: rlang::UQ(label_col)
  8: abort("`UQ()` can only be used within a quasiquoted argument")
  
  ── 2. Error: create_pmap() should handle complex graph (@test_create_pmap.R#40) 
  `UQ()` can only be used within a quasiquoted argument
  1: create_pmap(eventlog, target_types = c("sale")) at testthat/test_create_pmap.R:40
  2: create_pmap_graph(nodes, edges, target_types)
  3: add_nodes_from_table(p, table = nodes, label_col = "name", type_col = "catalog")
  4: rlang::UQ(label_col) %>% paste()
  5: eval(lhs, parent, parent)
  6: eval(lhs, parent, parent)
  7: rlang::UQ(label_col)
  8: abort("`UQ()` can only be used within a quasiquoted argument")
  
  ── 3. Error: create_pmap_graph() (@test_create_pmap_graph.R#30)  ───────────────
  `UQ()` can only be used within a quasiquoted argument
  1: create_pmap_graph(nodes, edges, target_types = c("sale")) at testthat/test_create_pmap_graph.R:30
  2: add_nodes_from_table(p, table = nodes, label_col = "name", type_col = "catalog")
  3: rlang::UQ(label_col) %>% paste()
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: rlang::UQ(label_col)
  7: abort("`UQ()` can only be used within a quasiquoted argument")
  
  ── 4. Error: prune_edges() should be able prune nothing (@test_prune_edges.R#4) 
  `UQ()` can only be used within a quasiquoted argument
  1: create_pmap_graph(nodes = data.frame(name = c("a", "b", "c", "d", "e"), type = c("campaign", 
         "campaign", "campaign", "sale", "sale"), stringsAsFactors = FALSE), edges = data.frame(from = c("a", 
         "b", "b", "a"), to = c("b", "c", "d", "e"), amount = c(10, 20, 30, 40), stringsAsFactors = FALSE), 
         target_types = c("sale")) at testthat/test_prune_edges.R:4
  2: add_nodes_from_table(p, table = nodes, label_col = "name", type_col = "catalog")
  3: rlang::UQ(label_col) %>% paste()
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: rlang::UQ(label_col)
  7: abort("`UQ()` can only be used within a quasiquoted argument")
  
  ── 5. Error: prune_edges() should be able prune half of the edges (@test_prune_e
  `UQ()` can only be used within a quasiquoted argument
  1: create_pmap_graph(nodes = data.frame(name = c("a", "b", "c", "d", "e"), type = c("campaign", 
         "campaign", "campaign", "sale", "sale"), stringsAsFactors = FALSE), edges = data.frame(from = c("a", 
         "b", "b", "a"), to = c("b", "c", "d", "e"), amount = c(10, 20, 30, 40), stringsAsFactors = FALSE), 
         target_types = c("sale")) at testthat/test_prune_edges.R:30
  2: add_nodes_from_table(p, table = nodes, label_col = "name", type_col = "catalog")
  3: rlang::UQ(label_col) %>% paste()
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: rlang::UQ(label_col)
  7: abort("`UQ()` can only be used within a quasiquoted argument")
  
  ── 6. Error: prune_edges() should be able prune all of the edges (@test_prune_ed
  `UQ()` can only be used within a quasiquoted argument
  1: create_pmap_graph(nodes = data.frame(name = c("a", "b", "c", "d", "e"), type = c("campaign", 
         "campaign", "campaign", "sale", "sale"), stringsAsFactors = FALSE), edges = data.frame(from = c("a", 
         "b", "b", "a"), to = c("b", "c", "d", "e"), amount = c(10, 20, 30, 40), stringsAsFactors = FALSE), 
         target_types = c("sale")) at testthat/test_prune_edges.R:58
  2: add_nodes_from_table(p, table = nodes, label_col = "name", type_col = "catalog")
  3: rlang::UQ(label_col) %>% paste()
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: rlang::UQ(label_col)
  7: abort("`UQ()` can only be used within a quasiquoted argument")
  
  ── 7. Error: prune_nodes() should be able prune nothing (@test_prune_nodes.R#4) 
  `UQ()` can only be used within a quasiquoted argument
  1: create_pmap_graph(nodes = data.frame(name = c("a", "b", "c", "d", "e"), type = c("campaign", 
         "campaign", "campaign", "sale", "sale"), amount = c(10, 30, 20, 40, 5), stringsAsFactors = FALSE), 
         edges = data.frame(from = c("a", "b", "b", "a"), to = c("b", "c", "d", "e"), 
             amount = c(10, 30, 20, 40), stringsAsFactors = FALSE), target_types = c("sale")) at testthat/test_prune_nodes.R:4
  2: add_nodes_from_table(p, table = nodes, label_col = "name", type_col = "catalog")
  3: rlang::UQ(label_col) %>% paste()
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: rlang::UQ(label_col)
  7: abort("`UQ()` can only be used within a quasiquoted argument")
  
  ── 8. Error: prune_nodes() should be able prune half of the nodes (@test_prune_n
  `UQ()` can only be used within a quasiquoted argument
  1: create_pmap_graph(nodes = data.frame(name = c("a", "b", "c", "d", "e"), type = c("campaign", 
         "campaign", "campaign", "sale", "sale"), amount = c(10, 30, 20, 40, 5), stringsAsFactors = FALSE), 
         edges = data.frame(from = c("a", "b", "b", "a"), to = c("b", "c", "d", "e"), 
             amount = c(10, 30, 20, 40), stringsAsFactors = FALSE), target_types = c("sale")) at testthat/test_prune_nodes.R:33
  2: add_nodes_from_table(p, table = nodes, label_col = "name", type_col = "catalog")
  3: rlang::UQ(label_col) %>% paste()
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: rlang::UQ(label_col)
  7: abort("`UQ()` can only be used within a quasiquoted argument")
  
  ── 9. Error: prune_nodes() should be able prune all of the nodes (@test_prune_no
  `UQ()` can only be used within a quasiquoted argument
  1: create_pmap_graph(nodes = data.frame(name = c("a", "b", "c", "d", "e"), type = c("campaign", 
         "campaign", "campaign", "sale", "sale"), amount = c(10, 30, 20, 40, 5), stringsAsFactors = FALSE), 
         edges = data.frame(from = c("a", "b", "b", "a"), to = c("b", "c", "d", "e"), 
             amount = c(10, 30, 20, 40), stringsAsFactors = FALSE), target_types = c("sale")) at testthat/test_prune_nodes.R:63
  2: add_nodes_from_table(p, table = nodes, label_col = "name", type_col = "catalog")
  3: rlang::UQ(label_col) %>% paste()
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: rlang::UQ(label_col)
  7: abort("`UQ()` can only be used within a quasiquoted argument")
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 59 SKIPPED: 0 FAILED: 9
  1. Error: create_pmap() should handle simple graph (@test_create_pmap.R#14) 
  2. Error: create_pmap() should handle complex graph (@test_create_pmap.R#40) 
  3. Error: create_pmap_graph() (@test_create_pmap_graph.R#30) 
  4. Error: prune_edges() should be able prune nothing (@test_prune_edges.R#4) 
  5. Error: prune_edges() should be able prune half of the edges (@test_prune_edges.R#30) 
  6. Error: prune_edges() should be able prune all of the edges (@test_prune_edges.R#58) 
  7. Error: prune_nodes() should be able prune nothing (@test_prune_nodes.R#4) 
  8. Error: prune_nodes() should be able prune half of the nodes (@test_prune_nodes.R#33) 
  9. Error: prune_nodes() should be able prune all of the nodes (@test_prune_nodes.R#63) 
  
  Error: testthat unit tests failed
  Execution halted