Running 'testthat.R' [50s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > # load packages
  > library(testthat)
  > library(oppr)
  > 
  > # run tests
  > test_check("oppr")
  list()
  attr(,"class")
  [1] "Waiver"
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  Starting checking the validity of sim_tree...
  Found number of tips: n = 5 
  Found number of nodes: m = 4 
  Done.
  
  Model name:  'project prioritization problem' - run #1    
  Objective:   Maximize(R0)
   
  SUBMITTED
  Model size:       23 constraints,      23 variables,           52 non-zeros.
  Sets:                                   0 GUB,                  0 SOS.
   
  Using DUAL simplex for phase 1 and PRIMAL simplex for phase 2.
  The primal and dual simplex pricing strategy set to 'Devex'.
   
  Optimized BLAS was successfully loaded for bfp_LUSOL.
  
  Relaxed solution            1.697466 after         20 iter is B&B base.
   
   
  
  Excellent numeric accuracy ||*|| = 1.11022e-016
  
   MEMO: lp_solve version 5.5.2.0 for 64 bit OS, with 64 bit LPSREAL variables.
        There were 5 refactorizations, 0 triggered by time and 0 by density.
         ... on average 5.0 major pivots per refactorization.
        The largest [LUSOL v2.2.1.0] fact(B) had 58 NZ entries, 1.1x largest basis.
        The maximum B&B level was 4, 0.1x MIP order, 3 at the optimal solution.
        The constraint matrix inf-norm is 1, with a dynamic range of 10.
        Time to load data was 0.000 seconds, presolve used 0.000 seconds,
         ... 0.000 seconds in simplex solver, in total 0.000 seconds.
  == Skipped tests ===============================================================
  * On CRAN (34)
  * gurobi cannot be loaded (1)
  
  == Failed tests ================================================================
  -- Error (test_plot.R:66:3): phylogenetic data ---------------------------------
  Error: argument "caller_env" is missing, with no default
  Backtrace:
       x
    1. +-base::plot(p, solution) test_plot.R:66:2
    2. +-oppr:::plot.ProjectProblem(p, solution)
    3. | \-oppr::plot_phylo_persistence(...)
    4. |   \-ggtree::ggtree(tree2, ggplot2::aes_string(color = "prob"), size = 1.1)
    5. |     +-ggplot2::ggplot(...)
    6. |     \-ggplot2:::ggplot.default(...)
    7. |       +-ggplot2::fortify(data, ...)
    8. |       \-ggtree:::fortify.treedata(data, ...)
    9. |         \-ggtree:::fortify.phylo(...)
   10. |           \-as_tibble(model) %>% mutate(isTip = !.data$node %in% .data$parent)
   11. +-dplyr::mutate(., isTip = !.data$node %in% .data$parent)
   12. +-tidytree:::mutate.tbl_tree(., isTip = !.data$node %in% .data$parent)
   13. +-base::NextMethod()
   14. \-dplyr:::mutate.data.frame(., isTip = !.data$node %in% .data$parent)
   15.   \-dplyr:::mutate_cols(.data, ...)
   16.     \-DataMask$new(.data, caller_env)
   17.       \-dplyr:::initialize(...)
  -- Error (test_plot_phylo_persistence.R:28:3): some projects funded ------------
  Error: argument "caller_env" is missing, with no default
  Backtrace:
       x
    1. +-oppr::plot_phylo_persistence(p, solution) test_plot_phylo_persistence.R:28:2
    2. | \-ggtree::ggtree(tree2, ggplot2::aes_string(color = "prob"), size = 1.1)
    3. |   +-ggplot2::ggplot(...)
    4. |   \-ggplot2:::ggplot.default(...)
    5. |     +-ggplot2::fortify(data, ...)
    6. |     \-ggtree:::fortify.treedata(data, ...)
    7. |       \-ggtree:::fortify.phylo(...)
    8. |         \-as_tibble(model) %>% mutate(isTip = !.data$node %in% .data$parent)
    9. +-dplyr::mutate(., isTip = !.data$node %in% .data$parent)
   10. +-tidytree:::mutate.tbl_tree(., isTip = !.data$node %in% .data$parent)
   11. +-base::NextMethod()
   12. \-dplyr:::mutate.data.frame(., isTip = !.data$node %in% .data$parent)
   13.   \-dplyr:::mutate_cols(.data, ...)
   14.     \-DataMask$new(.data, caller_env)
   15.       \-dplyr:::initialize(...)
  -- Error (test_plot_phylo_persistence.R:66:3): all projects funded -------------
  Error: argument "caller_env" is missing, with no default
  Backtrace:
       x
    1. +-oppr::plot_phylo_persistence(p, solution) test_plot_phylo_persistence.R:66:2
    2. | \-ggtree::ggtree(tree2, ggplot2::aes_string(color = "prob"), size = 1.1)
    3. |   +-ggplot2::ggplot(...)
    4. |   \-ggplot2:::ggplot.default(...)
    5. |     +-ggplot2::fortify(data, ...)
    6. |     \-ggtree:::fortify.treedata(data, ...)
    7. |       \-ggtree:::fortify.phylo(...)
    8. |         \-as_tibble(model) %>% mutate(isTip = !.data$node %in% .data$parent)
    9. +-dplyr::mutate(., isTip = !.data$node %in% .data$parent)
   10. +-tidytree:::mutate.tbl_tree(., isTip = !.data$node %in% .data$parent)
   11. +-base::NextMethod()
   12. \-dplyr:::mutate.data.frame(., isTip = !.data$node %in% .data$parent)
   13.   \-dplyr:::mutate_cols(.data, ...)
   14.     \-DataMask$new(.data, caller_env)
   15.       \-dplyr:::initialize(...)
  -- Error (test_plot_phylo_persistence.R:104:3): no projects funded -------------
  Error: argument "caller_env" is missing, with no default
  Backtrace:
       x
    1. +-oppr::plot_phylo_persistence(p, solution) test_plot_phylo_persistence.R:104:2
    2. | \-ggtree::ggtree(tree2, ggplot2::aes_string(color = "prob"), size = 1.1)
    3. |   +-ggplot2::ggplot(...)
    4. |   \-ggplot2:::ggplot.default(...)
    5. |     +-ggplot2::fortify(data, ...)
    6. |     \-ggtree:::fortify.treedata(data, ...)
    7. |       \-ggtree:::fortify.phylo(...)
    8. |         \-as_tibble(model) %>% mutate(isTip = !.data$node %in% .data$parent)
    9. +-dplyr::mutate(., isTip = !.data$node %in% .data$parent)
   10. +-tidytree:::mutate.tbl_tree(., isTip = !.data$node %in% .data$parent)
   11. +-base::NextMethod()
   12. \-dplyr:::mutate.data.frame(., isTip = !.data$node %in% .data$parent)
   13.   \-dplyr:::mutate_cols(.data, ...)
   14.     \-DataMask$new(.data, caller_env)
   15.       \-dplyr:::initialize(...)
  -- Error (test_plot_phylo_persistence.R:128:3): invalid arguments --------------
  Error: argument "caller_env" is missing, with no default
  Backtrace:
       x
    1. +-testthat::expect_is(plot_phylo_persistence(p, solution), "ggtree") test_plot_phylo_persistence.R:128:2
    2. | \-testthat::quasi_label(enquo(object), label, arg = "object")
    3. |   \-rlang::eval_bare(expr, quo_get_env(quo))
    4. +-oppr::plot_phylo_persistence(p, solution)
    5. | \-ggtree::ggtree(tree2, ggplot2::aes_string(color = "prob"), size = 1.1)
    6. |   +-ggplot2::ggplot(...)
    7. |   \-ggplot2:::ggplot.default(...)
    8. |     +-ggplot2::fortify(data, ...)
    9. |     \-ggtree:::fortify.treedata(data, ...)
   10. |       \-ggtree:::fortify.phylo(...)
   11. |         \-as_tibble(model) %>% mutate(isTip = !.data$node %in% .data$parent)
   12. +-dplyr::mutate(., isTip = !.data$node %in% .data$parent)
   13. +-tidytree:::mutate.tbl_tree(., isTip = !.data$node %in% .data$parent)
   14. +-base::NextMethod()
   15. \-dplyr:::mutate.data.frame(., isTip = !.data$node %in% .data$parent)
   16.   \-dplyr:::mutate_cols(.data, ...)
   17.     \-DataMask$new(.data, caller_env)
   18.       \-dplyr:::initialize(...)
  
  [ FAIL 5 | WARN 0 | SKIP 35 | PASS 1462 ]
  Error: Test failures
  Execution halted