Running ‘testthat.R’ [14s/23s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > 
  > test_check("data.tree")
  Loading required package: data.tree
                            levelName    cost
  1  Acme Inc.                             NA
  2   ¦--Accounting                        NA
  3   ¦   ¦--New Software             1000000
  4   ¦   °--New Accounting Standards  500000
  5   ¦--Research                          NA
  6   ¦   ¦--New Product Line         2000000
  7   ¦   °--New Labs                  750000
  8   °--IT                                NA
  9       ¦--Outsource                 400000
  10      ¦--Go agile                  250000
  11      °--Switch to R                50000
    levelName  b             1
  1 Root      NA              
  2  °--a      2              
  3      °--c NA 1, 2, 3, 4, 5
    levelName a
  1     Root   
  2      °--a 2
  [ FAIL 1 | WARN 0 | SKIP 0 | PASS 373 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-draw.R:44:3'): grViz ───────────────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─data.tree::ToDiagrammeRGraph(...) at test-draw.R:44: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 1 | WARN 0 | SKIP 0 | PASS 373 ]
  Error: Test failures
  Execution halted