Running ‘testthat.R’ [4s/6s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > require(testthat);
  Loading required package: testthat
  > testthat::test_check("justifier");
  Loading required package: justifier
  
  Attaching package: 'justifier'
  
  The following object is masked from 'package:base':
  
      source
  
  [ FAIL 5 | WARN 0 | SKIP 0 | PASS 2 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-general-justifier-tests.R:24:3'): reading a directory with justifications works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─justifier::load_justifications_dir(examplePath) at test-general-justifier-tests.R:24:2
    2. │ └─justifier::parse_justifications(...)
    3. │   └─base::lapply(...)
    4. │     └─justifier (local) FUN(X[[i]], ...)
    5. │       └─justifier:::create_justifierGraph(res$decisionTrees[[dTreeName]])
    6. │         └─justifier::apply_graph_theme(...)
    7. │           └─DiagrammeR::add_global_graph_attrs(...)
    8. │             └─... %>% dplyr::select(attr, value, attr_type)
    9. ├─dplyr::select(., attr, value, attr_type)
   10. ├─dplyr::transmute(...)
   11. ├─dplyr::full_join(., global_attrs_to_add, by = c("attr", "attr_type"))
   12. └─dplyr:::full_join.data.frame(...)
   13.   └─dplyr:::join_mutate(...)
   14.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   15.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   16.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   17.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   18.           ├─base::withCallingHandlers(...)
   19.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-general-justifier-tests.R:36:3'): parsing justifications works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─justifier::load_justifications(file.path(examplePath, "pp19.1-target-behavior-selection.jmd")) at test-general-justifier-tests.R:36:2
    2. │ └─justifier::parse_justifications(...)
    3. │   └─base::lapply(...)
    4. │     └─justifier (local) FUN(X[[i]], ...)
    5. │       └─justifier:::create_justifierGraph(res$decisionTrees[[dTreeName]])
    6. │         └─justifier::apply_graph_theme(...)
    7. │           └─DiagrammeR::add_global_graph_attrs(...)
    8. │             └─... %>% dplyr::select(attr, value, attr_type)
    9. ├─dplyr::select(., attr, value, attr_type)
   10. ├─dplyr::transmute(...)
   11. ├─dplyr::full_join(., global_attrs_to_add, by = c("attr", "attr_type"))
   12. └─dplyr:::full_join.data.frame(...)
   13.   └─dplyr:::join_mutate(...)
   14.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   15.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   16.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   17.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   18.           ├─base::withCallingHandlers(...)
   19.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-general-justifier-tests.R:67:3'): parsing simplified, just extracted justifications from yum works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─justifier::parse_justifications(res1) at test-general-justifier-tests.R:67:2
    2. │ └─base::lapply(...)
    3. │   └─justifier (local) FUN(X[[i]], ...)
    4. │     └─justifier:::create_justifierGraph(res$decisionTrees[[dTreeName]])
    5. │       └─justifier::apply_graph_theme(...)
    6. │         └─DiagrammeR::add_global_graph_attrs(...)
    7. │           └─... %>% dplyr::select(attr, value, attr_type)
    8. ├─dplyr::select(., attr, value, attr_type)
    9. ├─dplyr::transmute(...)
   10. ├─dplyr::full_join(., global_attrs_to_add, by = c("attr", "attr_type"))
   11. └─dplyr:::full_join.data.frame(...)
   12.   └─dplyr:::join_mutate(...)
   13.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   14.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   15.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   17.           ├─base::withCallingHandlers(...)
   18.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-general-justifier-tests.R:91:5'): the intervention development justification from the vignette is parsed correctly ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─justifier::parse_justifications(res1) at test-general-justifier-tests.R:91:4
    2. │ └─base::lapply(...)
    3. │   └─justifier (local) FUN(X[[i]], ...)
    4. │     └─justifier:::create_justifierGraph(res$decisionTrees[[dTreeName]])
    5. │       └─justifier::apply_graph_theme(...)
    6. │         └─DiagrammeR::add_global_graph_attrs(...)
    7. │           └─... %>% dplyr::select(attr, value, attr_type)
    8. ├─dplyr::select(., attr, value, attr_type)
    9. ├─dplyr::transmute(...)
   10. ├─dplyr::full_join(., global_attrs_to_add, by = c("attr", "attr_type"))
   11. └─dplyr:::full_join.data.frame(...)
   12.   └─dplyr:::join_mutate(...)
   13.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   14.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   15.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   17.           ├─base::withCallingHandlers(...)
   18.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-general-justifier-tests.R:113:3'): reading the example study jmd file works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─justifier::load_justifications(...) at test-general-justifier-tests.R:113:2
    2. │ └─justifier::parse_justifications(...)
    3. │   └─base::lapply(...)
    4. │     └─justifier (local) FUN(X[[i]], ...)
    5. │       └─justifier:::create_justifierGraph(res$decisionTrees[[dTreeName]])
    6. │         └─justifier::apply_graph_theme(...)
    7. │           └─DiagrammeR::add_global_graph_attrs(...)
    8. │             └─... %>% dplyr::select(attr, value, attr_type)
    9. ├─dplyr::select(., attr, value, attr_type)
   10. ├─dplyr::transmute(...)
   11. ├─dplyr::full_join(., global_attrs_to_add, by = c("attr", "attr_type"))
   12. └─dplyr:::full_join.data.frame(...)
   13.   └─dplyr:::join_mutate(...)
   14.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   15.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   16.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   17.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   18.           ├─base::withCallingHandlers(...)
   19.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 5 | WARN 0 | SKIP 0 | PASS 2 ]
  Error: Test failures
  Execution halted