── Test failures ───────────────────────────────────────────────── testthat ────
> desc_path <- list.files("../","^DESCRIPTION$",
+ full.names = TRUE, recursive = TRUE)[1]
> pkg <- read.dcf(desc_path, fields = "Package")[1]
> library(testthat)
> library(pkg, character.only = TRUE)
>
> test_check(pkg)
Loading required namespace: heatmaply
Loading required namespace: tidygraph
Loading required namespace: ggnetwork
Loading required namespace: pals
[ FAIL 1 | WARN 0 | SKIP 0 | PASS 9 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-networkmap.R:4'): networkmap works ─────────────────────────────
Error in `if (stringsAsFactors) x <- factor(x)`: argument is of length zero
Backtrace:
▆
1. └─ThreeWayTest::networkmap(dat = dat) at test-networkmap.R:4:4
2. └─ThreeWayTest:::networkmap_ggnetwork(...)
3. ├─base::suppressWarnings(ggnetwork::fortify(ig, list(layout = "graphopt")))
4. │ └─base::withCallingHandlers(...)
5. ├─ggnetwork::fortify(ig, list(layout = "graphopt"))
6. └─ggnetwork:::fortify.igraph(ig, list(layout = "graphopt"))
7. └─ggnetwork:::format_fortify(...)
8. └─base::cbind.data.frame(...)
9. └─base::data.frame(..., check.names = FALSE)
10. ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
11. └─base::as.data.frame.list(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
12. ├─base::do.call(data.frame, c(x, alis))
13. └─base (local) `<fn>`(...)
14. ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
15. └─base::as.data.frame.character(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
[ FAIL 1 | WARN 0 | SKIP 0 | PASS 9 ]
Error: Test failures
Execution halted
2 errors ✖ | 0 warnings ✔ | 1 note ✖
Runs with no errors.