Running ‘testthat.R’ [9s/19s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(simmer.plot)
  Loading required package: simmer
  Loading required package: ggplot2
  
  Attaching package: 'simmer.plot'
  
  The following objects are masked from 'package:simmer':
  
      get_mon_arrivals, get_mon_attributes, get_mon_resources
  
  > 
  > test_check("simmer.plot")
  ── 1. Error: a single-node trajectory is correctly converted to graph (@test-plo
  'set_global_graph_attrs' is not an exported object from 'namespace:DiagrammeR'
  1: test_graph(x, c("Timeout"), integer(0), integer(0)) at testthat/test-plot-trajectory.R:23
  2: expect_true(inherits(plot(x), "htmlwidget")) at testthat/test-plot-trajectory.R:4
  3: quasi_label(enquo(object), label)
  4: eval_bare(get_expr(quo), get_env(quo))
  5: inherits(plot(x), "htmlwidget")
  6: plot(x)
  7: plot.trajectory(x)
  8: trajectory_graph(x, fill, verbose) %>% DiagrammeR::set_global_graph_attrs("layout", 
         engine, "graph") %>% DiagrammeR::add_global_graph_attrs("fontname", "sans-serif", 
         "node") %>% DiagrammeR::add_global_graph_attrs("width", 1.5, "node") %>% DiagrammeR::render_graph(...) at /data/gannet/ripley/R/packages/tests-devel/simmer.plot/R/plot.trajectory.R:25
  9: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: `_fseq`(`_lhs`)
  13: freduce(value, `_function_list`)
  14: function_list[[i]](value)
  15: DiagrammeR::set_global_graph_attrs
  16: getExportedValue(pkg, name)
  17: stop(gettextf("'%s' is not an exported object from 'namespace:%s'", name, getNamespaceName(ns)), 
         call. = FALSE, domain = NA)
  
  ── 2. Error: a simple trajectory is correctly converted to graph (@test-plot-tra
  'set_global_graph_attrs' is not an exported object from 'namespace:DiagrammeR'
  1: test_graph(x, c("Seize", "Release"), 1, 2) at testthat/test-plot-trajectory.R:31
  2: expect_true(inherits(plot(x), "htmlwidget")) at testthat/test-plot-trajectory.R:4
  3: quasi_label(enquo(object), label)
  4: eval_bare(get_expr(quo), get_env(quo))
  5: inherits(plot(x), "htmlwidget")
  6: plot(x)
  7: plot.trajectory(x)
  8: trajectory_graph(x, fill, verbose) %>% DiagrammeR::set_global_graph_attrs("layout", 
         engine, "graph") %>% DiagrammeR::add_global_graph_attrs("fontname", "sans-serif", 
         "node") %>% DiagrammeR::add_global_graph_attrs("width", 1.5, "node") %>% DiagrammeR::render_graph(...) at /data/gannet/ripley/R/packages/tests-devel/simmer.plot/R/plot.trajectory.R:25
  9: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: `_fseq`(`_lhs`)
  13: freduce(value, `_function_list`)
  14: function_list[[i]](value)
  15: DiagrammeR::set_global_graph_attrs
  16: getExportedValue(pkg, name)
  17: stop(gettextf("'%s' is not an exported object from 'namespace:%s'", name, getNamespaceName(ns)), 
         call. = FALSE, domain = NA)
  
  ── 3. Error: a rollback with variable amount is correctly converted to graph (@t
  'set_global_graph_attrs' is not an exported object from 'namespace:DiagrammeR'
  1: test_graph(trajectory() %>% rollback(0), c("Rollback"), 1, 1) at testthat/test-plot-trajectory.R:35
  2: expect_true(inherits(plot(x), "htmlwidget")) at testthat/test-plot-trajectory.R:4
  3: quasi_label(enquo(object), label)
  4: eval_bare(get_expr(quo), get_env(quo))
  5: inherits(plot(x), "htmlwidget")
  6: plot(x)
  7: plot.trajectory(x)
  8: trajectory_graph(x, fill, verbose) %>% DiagrammeR::set_global_graph_attrs("layout", 
         engine, "graph") %>% DiagrammeR::add_global_graph_attrs("fontname", "sans-serif", 
         "node") %>% DiagrammeR::add_global_graph_attrs("width", 1.5, "node") %>% DiagrammeR::render_graph(...) at /data/gannet/ripley/R/packages/tests-devel/simmer.plot/R/plot.trajectory.R:25
  9: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: `_fseq`(`_lhs`)
  13: freduce(value, `_function_list`)
  14: function_list[[i]](value)
  15: DiagrammeR::set_global_graph_attrs
  16: getExportedValue(pkg, name)
  17: stop(gettextf("'%s' is not an exported object from 'namespace:%s'", name, getNamespaceName(ns)), 
         call. = FALSE, domain = NA)
  
  ── 4. Error: a complex trajectory is correctly converted to graph (@test-plot-tr
  'set_global_graph_attrs' is not an exported object from 'namespace:DiagrammeR'
  1: test_graph(x, c("Seize", "Branch", "Clone", "Seize", "Timeout", "Release", "Trap", 
         "Timeout", "Timeout", "SetAttribute", "Seize", "Timeout", "Release", "Release", 
         "Rollback", "Synchronize", "Rollback", "Release"), c(1, 2, 2, 2, 3, 3, 4, 5, 
         6, 7, 7, 9, 10, 11, 12, 13, 14, 15, 16, 17, 17), c(2, 3, 10, 16, 4, 7, 5, 6, 
         16, 8, 9, 16, 11, 12, 13, 14, 15, 1, 17, 2, 18)) at testthat/test-plot-trajectory.R:68
  2: expect_true(inherits(plot(x), "htmlwidget")) at testthat/test-plot-trajectory.R:4
  3: quasi_label(enquo(object), label)
  4: eval_bare(get_expr(quo), get_env(quo))
  5: inherits(plot(x), "htmlwidget")
  6: plot(x)
  7: plot.trajectory(x)
  8: trajectory_graph(x, fill, verbose) %>% DiagrammeR::set_global_graph_attrs("layout", 
         engine, "graph") %>% DiagrammeR::add_global_graph_attrs("fontname", "sans-serif", 
         "node") %>% DiagrammeR::add_global_graph_attrs("width", 1.5, "node") %>% DiagrammeR::render_graph(...) at /data/gannet/ripley/R/packages/tests-devel/simmer.plot/R/plot.trajectory.R:25
  9: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: `_fseq`(`_lhs`)
  13: freduce(value, `_function_list`)
  14: function_list[[i]](value)
  15: DiagrammeR::set_global_graph_attrs
  16: getExportedValue(pkg, name)
  17: stop(gettextf("'%s' is not an exported object from 'namespace:%s'", name, getNamespaceName(ns)), 
         call. = FALSE, domain = NA)
  
  ── 5. Error: edges are removed for ignored subtrajectories in Clone (@test-plot-
  'set_global_graph_attrs' is not an exported object from 'namespace:DiagrammeR'
  1: test_graph(x, c("Clone", "Timeout", "SetAttribute", "Clone", "Timeout", "SetAttribute", 
         "Clone", "Timeout", "SetAttribute", "Clone", "Timeout", "SetAttribute", "Synchronize"), 
         c(1, 1, 1, 2, 3, 4, 4, 5, 6, 7, 8, 9, 11, 12), c(2, 3, 4, 4, 4, 5, 6, 7, 7, 8, 
             10, 10, 13, 13)) at testthat/test-plot-trajectory.R:92
  2: expect_true(inherits(plot(x), "htmlwidget")) at testthat/test-plot-trajectory.R:4
  3: quasi_label(enquo(object), label)
  4: eval_bare(get_expr(quo), get_env(quo))
  5: inherits(plot(x), "htmlwidget")
  6: plot(x)
  7: plot.trajectory(x)
  8: trajectory_graph(x, fill, verbose) %>% DiagrammeR::set_global_graph_attrs("layout", 
         engine, "graph") %>% DiagrammeR::add_global_graph_attrs("fontname", "sans-serif", 
         "node") %>% DiagrammeR::add_global_graph_attrs("width", 1.5, "node") %>% DiagrammeR::render_graph(...) at /data/gannet/ripley/R/packages/tests-devel/simmer.plot/R/plot.trajectory.R:25
  9: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: `_fseq`(`_lhs`)
  13: freduce(value, `_function_list`)
  14: function_list[[i]](value)
  15: DiagrammeR::set_global_graph_attrs
  16: getExportedValue(pkg, name)
  17: stop(gettextf("'%s' is not an exported object from 'namespace:%s'", name, getNamespaceName(ns)), 
         call. = FALSE, domain = NA)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 52 SKIPPED: 0 FAILED: 5
  1. Error: a single-node trajectory is correctly converted to graph (@test-plot-trajectory.R#23) 
  2. Error: a simple trajectory is correctly converted to graph (@test-plot-trajectory.R#31) 
  3. Error: a rollback with variable amount is correctly converted to graph (@test-plot-trajectory.R#35) 
  4. Error: a complex trajectory is correctly converted to graph (@test-plot-trajectory.R#68) 
  5. Error: edges are removed for ignored subtrajectories in Clone (@test-plot-trajectory.R#92) 
  
  Error: testthat unit tests failed
  Execution halted