Running ‘testthat.R’ [141s/221s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(SCpubr)
  ---------------------------------------------------------------
  SCpubr
  
  If you use SCpubr in your research, please cite it accordingly: 
  Blanco-Carmona, E. Generating publication ready visualizations for Single Cell transcriptomics using SCpubr. bioRxiv (2022) doi:10.1101/2022.02.28.482303.
  
  If the package is useful to you, consider leaving a Star in the GitHub repo: https://github.com/enblacar/SCpubr/stargazers 
  
  Keep track of the package updates on Twitter (@Enblacar) or in https://github.com/enblacar/SCpubr/blob/main/NEWS.md 
  
  To suppress this startup message, use: 
  suppressPackageStartupMessages(library('SCpubr'))
  ---------------------------------------------------------------
  > test_check("SCpubr")
  
  
  [ FAIL 1 | WARN 3 | SKIP 440 | PASS 90 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (440)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-do_FunctionalAnnotationPlot.R:5:5'): do_FunctionalAnnotationPlot: CRAN essential tests ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─SCpubr::do_FunctionalAnnotationPlot(...) at test-do_FunctionalAnnotationPlot.R:5:4
    2. │ └─SCpubr:::do_EnrichedTermTreePlot(...)
    3. │   ├─enrichplot::treeplot(...)
    4. │   └─enrichplot::treeplot(...)
    5. │     └─enrichplot:::treeplot.enrichResult(x, ...)
    6. │       └─enrichplot:::group_tree(...)
    7. │         └─ggtree::ggtree(hc, hang = -1, branch.length = "none", show.legend = FALSE)
    8. │           ├─ggplot2::ggplot(...)
    9. │           └─ggplot2:::ggplot.default(...)
   10. │             ├─ggplot2::fortify(data, ...)
   11. │             └─ggtree:::fortify.hclust(data, ...)
   12. │               └─ggtree:::fortify.phylo(...)
   13. │                 ├─as_tibble(model) %>% ...
   14. │                 ├─tibble::as_tibble(model)
   15. │                 └─tidytree:::as_tibble.phylo(model)
   16. │                   ├─dplyr::full_join(res, label.df, by = "node")
   17. │                   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
   18. │                     └─dplyr:::join_mutate(...)
   19. │                       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   20. │                       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   21. │                         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22. │                           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23. │                             ├─base::withCallingHandlers(...)
   24. │                             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   25. └─dplyr::mutate(., isTip = !.data$node %in% .data$parent)
  
  [ FAIL 1 | WARN 3 | SKIP 440 | PASS 90 ]
  Error: Test failures
  In addition: Warning message:
  In dplyr::left_join(., y = { :
    Each row in `x` is expected to match at most 1 row in `y`.
  ℹ Row 1 of `x` matches multiple rows.
  ℹ If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Execution halted