Running ‘testthat.R’ [83s/126s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(DiagrammeR)
  > 
  > suppressWarnings(RNGversion("3.5.0"))
  > test_check("DiagrammeR")
  [ FAIL 12 | WARN 12 | SKIP 0 | PASS 2110 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-metagraph.R:51:3'): the display of the metagraph works ─────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─DiagrammeR::display_metagraph(property_graph) at test-metagraph.R:51:2
    2. │ └─... %>% ...
    3. ├─DiagrammeR::add_global_graph_attrs(...)
    4. │ └─DiagrammeR:::graph_object_valid(graph)
    5. │   └─... %in% names(graph)
    6. ├─DiagrammeR::add_global_graph_attrs(...)
    7. │ └─DiagrammeR:::graph_object_valid(graph)
    8. │   └─... %in% names(graph)
    9. ├─DiagrammeR::add_global_graph_attrs(...)
   10. │ └─DiagrammeR:::graph_object_valid(graph)
   11. │   └─... %in% names(graph)
   12. ├─DiagrammeR::colorize_edge_attrs(., edge_attr_from = "rel", edge_attr_to = "color")
   13. │ └─DiagrammeR:::graph_object_valid(graph)
   14. │   └─... %in% names(graph)
   15. ├─DiagrammeR::add_global_graph_attrs(...)
   16. │ └─DiagrammeR:::graph_object_valid(graph)
   17. │   └─... %in% names(graph)
   18. ├─DiagrammeR::add_global_graph_attrs(...)
   19. │ └─... %>% dplyr::select(attr, value, attr_type)
   20. ├─dplyr::select(., attr, value, attr_type)
   21. ├─dplyr::transmute(...)
   22. ├─dplyr::full_join(., global_attrs_to_add, by = c("attr", "attr_type"))
   23. └─dplyr:::full_join.data.frame(...)
   24.   └─dplyr:::join_mutate(...)
   25.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   26.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   27.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   28.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   29.           ├─base::withCallingHandlers(...)
   30.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-set_get_graph_attrs.R:143:3'): Getting global graph attrs is possible ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─graph %>% ... at test-set_get_graph_attrs.R:143:2
    2. ├─DiagrammeR::add_global_graph_attrs(...)
    3. │ └─... %>% dplyr::select(attr, value, attr_type)
    4. ├─dplyr::select(., attr, value, attr_type)
    5. ├─dplyr::transmute(...)
    6. ├─dplyr::full_join(., global_attrs_to_add, by = c("attr", "attr_type"))
    7. └─dplyr:::full_join.data.frame(...)
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   11.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   12.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   13.           ├─base::withCallingHandlers(...)
   14.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-set_get_graph_attrs.R:171:3'): Adding global graph attrs is possible ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─graph %>% ... at test-set_get_graph_attrs.R:171:2
    2. ├─DiagrammeR::add_global_graph_attrs(...)
    3. │ └─... %>% dplyr::select(attr, value, attr_type)
    4. ├─dplyr::select(., attr, value, attr_type)
    5. ├─dplyr::transmute(...)
    6. ├─dplyr::full_join(., global_attrs_to_add, by = c("attr", "attr_type"))
    7. └─dplyr:::full_join.data.frame(...)
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   11.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   12.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   13.           ├─base::withCallingHandlers(...)
   14.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-traversals_copying_attr_vals.R:17:3'): copying values with `trav_out_edge()` works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─graph %>% select_nodes_by_id(nodes = 1) %>% ... at test-traversals_copying_attr_vals.R:17:2
    2. ├─DiagrammeR::trav_out_edge(., copy_attrs_from = data)
    3. │ └─... %>% dplyr::rename(id = id.y)
    4. ├─dplyr::rename(., id = id.y)
    5. ├─dplyr::rename(., from = id)
    6. ├─dplyr::right_join(., edf, c(id = "from"))
    7. └─dplyr:::right_join.data.frame(., edf, c(id = "from"))
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   11.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   12.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   13.           ├─base::withCallingHandlers(...)
   14.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-traversals_copying_attr_vals.R:83:3'): copying values with `trav_in_edge()` works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─graph %>% select_nodes_by_id(nodes = 3) %>% ... at test-traversals_copying_attr_vals.R:83:2
    2. ├─DiagrammeR::trav_in_edge(., copy_attrs_from = data)
    3. │ └─ndf_2 %>% dplyr::right_join(edf, by = c(id = "to")) %>% ...
    4. ├─dplyr::rename(., to = id, id = id.y)
    5. ├─dplyr::right_join(., edf, by = c(id = "to"))
    6. └─dplyr:::right_join.data.frame(., edf, by = c(id = "to"))
    7.   └─dplyr:::join_mutate(...)
    8.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    9.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   10.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   12.           ├─base::withCallingHandlers(...)
   13.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-traversals_copying_attr_vals.R:149:3'): copying values with `trav_both_edge()` works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─graph %>% select_nodes_by_id(nodes = 2) %>% ... at test-traversals_copying_attr_vals.R:149:2
    2. ├─DiagrammeR::trav_both_edge(., copy_attrs_from = data)
    3. │ └─from_join %>% ...
    4. ├─dplyr::right_join(...)
    5. └─dplyr:::right_join.data.frame(...)
    6.   └─dplyr:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    8.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    9.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.           ├─base::withCallingHandlers(...)
   12.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-traversals_copying_attr_vals.R:213:3'): copying values with `trav_both()` works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─graph %>% select_nodes_by_id(nodes = 2) %>% ... at test-traversals_copying_attr_vals.R:213:2
    2. ├─DiagrammeR::trav_both(., copy_attrs_from = data)
    3. │ └─... %>% as.data.frame(stringsAsFactors = FALSE)
    4. ├─base::as.data.frame(., stringsAsFactors = FALSE)
    5. ├─dplyr::select(., id, type, label, dplyr::everything())
    6. ├─dplyr::right_join(., ndf, by = "id")
    7. └─dplyr:::right_join.data.frame(., ndf, by = "id")
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   11.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   12.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   13.           ├─base::withCallingHandlers(...)
   14.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-traversals_copying_attr_vals.R:237:3'): copying values with `trav_in()` works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─graph %>% select_nodes_by_id(nodes = 3) %>% ... at test-traversals_copying_attr_vals.R:237:2
    2. ├─DiagrammeR::trav_in(., copy_attrs_from = data)
    3. │ └─... %>% as.data.frame(stringsAsFactors = FALSE)
    4. ├─base::as.data.frame(., stringsAsFactors = FALSE)
    5. ├─dplyr::arrange(., id)
    6. ├─dplyr::select(., id, type, label, dplyr::everything())
    7. ├─dplyr::right_join(., ndf, by = "id")
    8. └─dplyr:::right_join.data.frame(., ndf, by = "id")
    9.   └─dplyr:::join_mutate(...)
   10.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   11.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   13.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   14.           ├─base::withCallingHandlers(...)
   15.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-traversals_copying_attr_vals.R:268:3'): copying values with `trav_out()` works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─graph %>% select_nodes_by_id(nodes = 1) %>% ... at test-traversals_copying_attr_vals.R:268:2
    2. ├─DiagrammeR::trav_out(., copy_attrs_from = data)
    3. │ └─... %>% as.data.frame(stringsAsFactors = FALSE)
    4. ├─base::as.data.frame(., stringsAsFactors = FALSE)
    5. ├─dplyr::select(., id, type, label, dplyr::everything())
    6. ├─dplyr::right_join(., ndf, by = "id")
    7. └─dplyr:::right_join.data.frame(., ndf, by = "id")
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   11.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   12.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   13.           ├─base::withCallingHandlers(...)
   14.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-traversals_copying_attr_vals.R:307:3'): copying values with `trav_out_node()` works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-traversals_copying_attr_vals.R:307:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% as.numeric()
    5. ├─DiagrammeR::get_node_attrs(., node_attr = value)
    6. │ └─DiagrammeR:::graph_object_valid(graph)
    7. │   └─... %in% names(graph)
    8. ├─DiagrammeR::trav_out_node(., copy_attrs_from = value, agg = "sum")
    9. │ └─... %>% as.data.frame(stringsAsFactors = FALSE)
   10. ├─base::as.data.frame(., stringsAsFactors = FALSE)
   11. ├─dplyr::select(., id, type, label, dplyr::everything())
   12. ├─dplyr::right_join(., ndf, by = "id")
   13. └─dplyr:::right_join.data.frame(., ndf, by = "id")
   14.   └─dplyr:::join_mutate(...)
   15.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   16.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   17.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   18.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   19.           ├─base::withCallingHandlers(...)
   20.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-traversals_copying_attr_vals.R:338:3'): copying values with `trav_in_node()` works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-traversals_copying_attr_vals.R:338:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% as.numeric()
    5. ├─DiagrammeR::get_node_attrs(., node_attr = value)
    6. │ └─DiagrammeR:::graph_object_valid(graph)
    7. │   └─... %in% names(graph)
    8. ├─DiagrammeR::trav_in_node(., copy_attrs_from = value, agg = "sum")
    9. │ └─... %>% as.data.frame(stringsAsFactors = FALSE)
   10. ├─base::as.data.frame(., stringsAsFactors = FALSE)
   11. ├─dplyr::select(., id, type, label, dplyr::everything())
   12. ├─dplyr::right_join(., ndf, by = "id")
   13. └─dplyr:::right_join.data.frame(., ndf, by = "id")
   14.   └─dplyr:::join_mutate(...)
   15.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   16.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   17.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   18.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   19.           ├─base::withCallingHandlers(...)
   20.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-write_graph_backup.R:370:3'): Graph backups for `add_global_graph_attrs()` works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─create_graph(write_backups = TRUE) %>% ... at test-write_graph_backup.R:370:2
    2. ├─DiagrammeR::add_global_graph_attrs(...)
    3. │ └─... %>% dplyr::select(attr, value, attr_type)
    4. ├─dplyr::select(., attr, value, attr_type)
    5. ├─dplyr::transmute(...)
    6. ├─dplyr::full_join(., global_attrs_to_add, by = c("attr", "attr_type"))
    7. └─dplyr:::full_join.data.frame(...)
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   11.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   12.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   13.           ├─base::withCallingHandlers(...)
   14.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 12 | WARN 12 | SKIP 0 | PASS 2110 ]
  Error: Test failures
  Execution halted