Running 'testthat.R' [4s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(netmap)
  > 
  > test_check("netmap")
  Lookup table is ambiguous (duplicate entries in at least one column)
  Empty cells in lookup table
  Empty cells in lookup table
  id or vertex.names not found in lookup table
  Invalid network/igraph object supplied
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 20 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-ggnetmap.R:11'): ggnetmap produces the expected fortified data frame with lookup table ──
  Error in `if (stringsAsFactors) x <- factor(x)`: argument is of length zero
  Backtrace:
       ▆
    1. └─netmap::ggnetmap(net, map, lkptbl, "id", "name") at test-ggnetmap.R:11:2
    2.   ├─ggnetwork::fortify(n2, layout = coords, scale = scale, ...)
    3.   └─ggnetwork:::fortify.network(...)
    4.     └─ggnetwork:::format_fortify(...)
    5.       └─base::cbind.data.frame(...)
    6.         └─base::data.frame(..., check.names = FALSE)
    7.           ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
    8.           └─base::as.data.frame.list(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
    9.             ├─base::do.call(data.frame, c(x, alis))
   10.             └─base (local) `<fn>`(...)
   11.               ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   12.               └─base::as.data.frame.character(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
  ── Error ('test-ggnetmap.R:49'): ggnetmap produces the expected fortified data frame without lookup table ──
  Error in `if (stringsAsFactors) x <- factor(x)`: argument is of length zero
  Backtrace:
       ▆
    1. └─netmap::ggnetmap(net, map, NULL, "id", "name") at test-ggnetmap.R:49:2
    2.   ├─ggnetwork::fortify(n2, layout = coords, scale = scale, ...)
    3.   └─ggnetwork:::fortify.network(...)
    4.     └─ggnetwork:::format_fortify(...)
    5.       └─base::cbind.data.frame(...)
    6.         └─base::data.frame(..., check.names = FALSE)
    7.           ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
    8.           └─base::as.data.frame.list(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
    9.             ├─base::do.call(data.frame, c(x, alis))
   10.             └─base (local) `<fn>`(...)
   11.               ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   12.               └─base::as.data.frame.character(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
  
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 20 ]
  Error: Test failures
  Execution halted