Running ‘testthat.R’ [16s/26s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(causact)
  > 
  > test_check("causact")
  ## The below greta code will return a posterior distribution 
  ## for the given DAG. Either copy and paste this code to use greta
  ## directly, evaluate the output object using 'eval', or 
  ## or (preferably) use dag_greta(mcmc=TRUE) to return a data frame of
  ## the posterior distribution: 
  x <- as_data(carModelDF$getCard)   #DATA
  y      <- as.factor(carModelDF$carModel)   #DIM
  y_dim  <- length(unique(y))   #DIM
  theta  <- uniform(min = 0, max = 1, dim = y_dim)   #PRIOR
  distribution(x) <- bernoulli(prob = theta[y])   #LIKELIHOOD
  gretaModel  <- model(theta)   #MODEL
  meaningfulLabels(graph)
  draws       <- mcmc(gretaModel)              #POSTERIOR
  drawsDF     <- replaceLabels(draws) %>% as.matrix() %>%
                  dplyr::as_tibble()           #POSTERIOR
  tidyDrawsDF <- drawsDF %>% addPriorGroups()  #POSTERIOR
  
  [ FAIL 3 | WARN 35 | SKIP 0 | PASS 22 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-bigModelsAndIntegration.R:44:3'): big models are okay ──────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─graph2 %>% dag_render(shortLabel = 35, wrapWidth = 22) at test-bigModelsAndIntegration.R:44:2
    2. ├─causact::dag_render(., shortLabel = 35, wrapWidth = 22)
    3. │ └─... %>% generate_dot2()
    4. ├─causact::generate_dot2(.)
    5. ├─causact::dag_diagrammer(., shortLabel = sLabel, wrapWidth = ww)
    6. │ └─dgr_graph %>% causact::setDirectedGraphTheme()
    7. ├─causact::setDirectedGraphTheme(.)
    8. │ └─... %>% ...
    9. ├─DiagrammeR::add_global_graph_attrs(...)
   10. │ └─DiagrammeR:::graph_object_valid(graph)
   11. │   └─... %in% names(graph)
   12. ├─DiagrammeR::add_global_graph_attrs(...)
   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. │ └─DiagrammeR:::graph_object_valid(graph)
   20. │   └─... %in% names(graph)
   21. ├─DiagrammeR::add_global_graph_attrs(...)
   22. │ └─DiagrammeR:::graph_object_valid(graph)
   23. │   └─... %in% names(graph)
   24. ├─DiagrammeR::add_global_graph_attrs(...)
   25. │ └─DiagrammeR:::graph_object_valid(graph)
   26. │   └─... %in% names(graph)
   27. ├─DiagrammeR::add_global_graph_attrs(...)
   28. │ └─DiagrammeR:::graph_object_valid(graph)
   29. │   └─... %in% names(graph)
   30. ├─DiagrammeR::add_global_graph_attrs(...)
   31. │ └─DiagrammeR:::graph_object_valid(graph)
   32. │   └─... %in% names(graph)
   33. ├─DiagrammeR::add_global_graph_attrs(...)
   34. │ └─DiagrammeR:::graph_object_valid(graph)
   35. │   └─... %in% names(graph)
   36. ├─DiagrammeR::add_global_graph_attrs(...)
   37. │ └─... %>% dplyr::select(attr, value, attr_type)
   38. ├─dplyr::select(., attr, value, attr_type)
   39. ├─dplyr::transmute(...)
   40. ├─dplyr::full_join(., global_attrs_to_add, by = c("attr", "attr_type"))
   41. └─dplyr:::full_join.data.frame(...)
   42.   └─dplyr:::join_mutate(...)
   43.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   44.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   45.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   46.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   47.           ├─base::withCallingHandlers(...)
   48.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-dag_diagramer.R:2:3'): diagrammer object can be created ────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% dag_diagrammer() at test-dag_diagramer.R:2:2
    2. ├─causact::dag_diagrammer(.)
    3. │ └─dgr_graph %>% causact::setDirectedGraphTheme()
    4. ├─causact::setDirectedGraphTheme(.)
    5. │ └─... %>% ...
    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::add_global_graph_attrs(...)
   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. │ └─DiagrammeR:::graph_object_valid(graph)
   20. │   └─... %in% names(graph)
   21. ├─DiagrammeR::add_global_graph_attrs(...)
   22. │ └─DiagrammeR:::graph_object_valid(graph)
   23. │   └─... %in% names(graph)
   24. ├─DiagrammeR::add_global_graph_attrs(...)
   25. │ └─DiagrammeR:::graph_object_valid(graph)
   26. │   └─... %in% names(graph)
   27. ├─DiagrammeR::add_global_graph_attrs(...)
   28. │ └─DiagrammeR:::graph_object_valid(graph)
   29. │   └─... %in% names(graph)
   30. ├─DiagrammeR::add_global_graph_attrs(...)
   31. │ └─DiagrammeR:::graph_object_valid(graph)
   32. │   └─... %in% names(graph)
   33. ├─DiagrammeR::add_global_graph_attrs(...)
   34. │ └─... %>% dplyr::select(attr, value, attr_type)
   35. ├─dplyr::select(., attr, value, attr_type)
   36. ├─dplyr::transmute(...)
   37. ├─dplyr::full_join(., global_attrs_to_add, by = c("attr", "attr_type"))
   38. └─dplyr:::full_join.data.frame(...)
   39.   └─dplyr:::join_mutate(...)
   40.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   41.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   42.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   43.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   44.           ├─base::withCallingHandlers(...)
   45.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-dag_render.R:2:3'): graph can be rendered ──────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% dag_render() at test-dag_render.R:2:2
    2. ├─causact::dag_render(.)
    3. │ └─... %>% generate_dot2()
    4. ├─causact::generate_dot2(.)
    5. ├─causact::dag_diagrammer(., shortLabel = sLabel, wrapWidth = ww)
    6. │ └─dgr_graph %>% causact::setDirectedGraphTheme()
    7. ├─causact::setDirectedGraphTheme(.)
    8. │ └─... %>% ...
    9. ├─DiagrammeR::add_global_graph_attrs(...)
   10. │ └─DiagrammeR:::graph_object_valid(graph)
   11. │   └─... %in% names(graph)
   12. ├─DiagrammeR::add_global_graph_attrs(...)
   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. │ └─DiagrammeR:::graph_object_valid(graph)
   20. │   └─... %in% names(graph)
   21. ├─DiagrammeR::add_global_graph_attrs(...)
   22. │ └─DiagrammeR:::graph_object_valid(graph)
   23. │   └─... %in% names(graph)
   24. ├─DiagrammeR::add_global_graph_attrs(...)
   25. │ └─DiagrammeR:::graph_object_valid(graph)
   26. │   └─... %in% names(graph)
   27. ├─DiagrammeR::add_global_graph_attrs(...)
   28. │ └─DiagrammeR:::graph_object_valid(graph)
   29. │   └─... %in% names(graph)
   30. ├─DiagrammeR::add_global_graph_attrs(...)
   31. │ └─DiagrammeR:::graph_object_valid(graph)
   32. │   └─... %in% names(graph)
   33. ├─DiagrammeR::add_global_graph_attrs(...)
   34. │ └─DiagrammeR:::graph_object_valid(graph)
   35. │   └─... %in% names(graph)
   36. ├─DiagrammeR::add_global_graph_attrs(...)
   37. │ └─... %>% dplyr::select(attr, value, attr_type)
   38. ├─dplyr::select(., attr, value, attr_type)
   39. ├─dplyr::transmute(...)
   40. ├─dplyr::full_join(., global_attrs_to_add, by = c("attr", "attr_type"))
   41. └─dplyr:::full_join.data.frame(...)
   42.   └─dplyr:::join_mutate(...)
   43.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   44.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   45.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   46.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   47.           ├─base::withCallingHandlers(...)
   48.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 3 | WARN 35 | SKIP 0 | PASS 22 ]
  Error: Test failures
  Execution halted