Running 'testthat.R' [54s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(DiagrammeR)
  > 
  > test_check("DiagrammeR")
  Modularity is implemented for undirected graphs only.
  Modularity is implemented for undirected graphs only.
  Modularity is implemented for undirected graphs only.
  Modularity is implemented for undirected graphs only.
  Modularity is implemented for undirected graphs only.
  Modularity is implemented for undirected graphs only.
  Modularity is implemented for undirected graphs only.
  Modularity is implemented for undirected graphs only.
  Modularity is implemented for undirected graphs only.
  -- 1. Error: the display of the metagraph works (@test-metagraph.R#7)  ---------
  replacement has 1 row, data has 0
  1: create_graph() %>% add_gnm_graph(n = 100, m = 135, set_seed = 23) %>% select_nodes_by_degree(expressions = "deg >= 3") %>% 
         set_node_attrs_ws(node_attr = type, value = "a") %>% clear_selection() %>% select_nodes_by_degree(expressions = "deg < 3") %>% 
         set_node_attrs_ws(node_attr = type, value = "b") %>% clear_selection() %>% select_nodes_by_degree(expressions = "deg == 0") %>% 
         set_node_attrs_ws(node_attr = type, value = "c") %>% set_node_attr_to_display(attr = type) %>% 
         select_edges_by_node_id(nodes = get_node_ids(.) %>% sample(size = 0.15 * length(.) %>% 
             floor())) %>% set_edge_attrs_ws(edge_attr = rel, value = "r_1") %>% invert_selection() %>% 
         set_edge_attrs_ws(edge_attr = rel, value = "r_2") %>% clear_selection() %>% copy_edge_attrs(edge_attr_from = rel, 
         edge_attr_to = label) at testthat/test-metagraph.R:7
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: select_nodes_by_degree(., expressions = "deg >= 3")
  9: get_node_info(graph) %>% dplyr::select(id, deg, indeg, outdeg)
  10: eval(lhs, parent, parent)
  11: eval(lhs, parent, parent)
  12: get_node_info(graph)
  13: `[<-`(`*tmp*`, i, 1, value = 1L)
  14: `[<-.data.frame`(`*tmp*`, i, 1, value = 1L)
  15: xpdrows.data.frame(x, rows, new.rows)
  16: `[[<-`(`*tmp*`, i, value = NA_real_)
  17: `[[<-.data.frame`(`*tmp*`, i, value = NA_real_)
  18: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  -- 2. Error: the MST algorithm is functional (@test-mst.R#34)  -----------------
  replacement has 1 row, data has 0
  1: expect_true(all(get_node_info(min_spanning_tree_graph)$loops == 0)) at testthat/test-mst.R:34
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: get_node_info(min_spanning_tree_graph)
  5: `[<-`(`*tmp*`, i, 1, value = 1L)
  6: `[<-.data.frame`(`*tmp*`, i, 1, value = 1L)
  7: xpdrows.data.frame(x, rows, new.rows)
  8: `[[<-`(`*tmp*`, i, value = NA_real_)
  9: `[[<-.data.frame`(`*tmp*`, i, value = NA_real_)
  10: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  -- 3. Error: getting info about a graph's nodes is possible (@test-node_edge_inf
  replacement has 1 row, data has 0
  1: get_node_info(graph) at testthat/test-node_edge_info.R:33
  2: `[<-`(`*tmp*`, i, 1, value = 1L)
  3: `[<-.data.frame`(`*tmp*`, i, 1, value = 1L)
  4: xpdrows.data.frame(x, rows, new.rows)
  5: `[[<-`(`*tmp*`, i, value = NA_real_)
  6: `[[<-.data.frame`(`*tmp*`, i, value = NA_real_)
  7: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  -- 4. Error: selecting nodes by node degree is possible (@test-selections.R#749)
  replacement has 1 row, data has 0
  1: expect_equal(graph %>% select_nodes_by_degree("deg == 9") %>% get_selection(), c(5, 
         10, 26, 31)) at testthat/test-selections.R:749
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: graph %>% select_nodes_by_degree("deg == 9") %>% get_selection()
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: function_list[[i]](value)
  11: select_nodes_by_degree(., "deg == 9")
  12: get_node_info(graph) %>% dplyr::select(id, deg, indeg, outdeg)
  13: eval(lhs, parent, parent)
  14: eval(lhs, parent, parent)
  15: get_node_info(graph)
  16: `[<-`(`*tmp*`, i, 1, value = 1L)
  17: `[<-.data.frame`(`*tmp*`, i, 1, value = 1L)
  18: xpdrows.data.frame(x, rows, new.rows)
  19: `[[<-`(`*tmp*`, i, value = NA_real_)
  20: `[[<-.data.frame`(`*tmp*`, i, value = NA_real_)
  21: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  -- 5. Error: graph series information can be obtained (@test-series_info.R#91)  
  replacement has 1 row, data has 0
  1: series %>% get_graph_series_info() at testthat/test-series_info.R:91
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: get_graph_series_info(.)
  10: `[<-`(`*tmp*`, i, 1, value = 1L)
  11: `[<-.data.frame`(`*tmp*`, i, 1, value = 1L)
  12: xpdrows.data.frame(x, rows, new.rows)
  13: `[[<-`(`*tmp*`, i, value = NA_integer_)
  14: `[[<-.data.frame`(`*tmp*`, i, value = NA_integer_)
  15: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  == testthat results  ===========================================================
  OK: 2007 SKIPPED: 0 FAILED: 5
  1. Error: the display of the metagraph works (@test-metagraph.R#7) 
  2. Error: the MST algorithm is functional (@test-mst.R#34) 
  3. Error: getting info about a graph's nodes is possible (@test-node_edge_info.R#33) 
  4. Error: selecting nodes by node degree is possible (@test-selections.R#749) 
  5. Error: graph series information can be obtained (@test-series_info.R#91) 
  
  Error: testthat unit tests failed
  Execution halted