Running ‘testthat.R’ [6s/8s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(ggnetwork)
  Loading required package: ggplot2
  > 
  > test_check("ggnetwork")
  [ FAIL 15 | WARN 0 | SKIP 0 | PASS 11 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-fortify-igraph.R:7'): fortify.igraph works ─────────────────────
  Error in `if (stringsAsFactors) x <- factor(x)`: argument is of length zero
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(fortify(n), "data.frame") at test-fortify-igraph.R:7:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─ggplot2::fortify(n)
    5. └─ggnetwork:::fortify.igraph(n)
    6.   └─ggnetwork:::format_fortify(...)
    7.     └─base::cbind.data.frame(...)
    8.       └─base::data.frame(..., check.names = FALSE)
    9.         ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   10.         └─base::as.data.frame.list(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   11.           ├─base::do.call(data.frame, c(x, alis))
   12.           └─base (local) `<fn>`(...)
   13.             ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   14.             └─base::as.data.frame.character(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
  ── Error ('test-fortify-network.R:7'): fortify.network works ───────────────────
  Error in `if (stringsAsFactors) x <- factor(x)`: argument is of length zero
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(fortify(n), "data.frame") at test-fortify-network.R:7:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─ggplot2::fortify(n)
    5. └─ggnetwork:::fortify.network(n)
    6.   └─ggnetwork:::format_fortify(...)
    7.     └─base::cbind.data.frame(...)
    8.       └─base::data.frame(..., check.names = FALSE)
    9.         ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   10.         └─base::as.data.frame.list(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   11.           ├─base::do.call(data.frame, c(x, alis))
   12.           └─base (local) `<fn>`(...)
   13.             ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   14.             └─base::as.data.frame.character(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
  ── Error ('test-geom-edges.R:7'): geom_edges works ─────────────────────────────
  Error in `if (stringsAsFactors) x <- factor(x)`: argument is of length zero
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-geom-edges.R:7:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─ggplot2::ggplot(emon[[1]], aes(x, y, xend = xend, yend = yend)) at test-geom-edges.R:8:4
    5. └─ggplot2:::ggplot.default(emon[[1]], aes(x, y, xend = xend, yend = yend))
    6.   ├─ggplot2::fortify(data, ...)
    7.   └─ggnetwork:::fortify.network(data, ...)
    8.     └─ggnetwork:::format_fortify(...)
    9.       └─base::cbind.data.frame(...)
   10.         └─base::data.frame(..., check.names = FALSE)
   11.           ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   12.           └─base::as.data.frame.list(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   13.             ├─base::do.call(data.frame, c(x, alis))
   14.             └─base (local) `<fn>`(...)
   15.               ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   16.               └─base::as.data.frame.character(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
  ── Error ('test-geom-edges.R:22'): geom_edgetext works ─────────────────────────
  Error in `if (stringsAsFactors) x <- factor(x)`: argument is of length zero
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-geom-edges.R:22:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─ggplot2::ggplot(emon[[1]], ggplot2::aes(x, y, xend = xend, yend = yend)) at test-geom-edges.R:23:4
    5. └─ggplot2:::ggplot.default(...)
    6.   ├─ggplot2::fortify(data, ...)
    7.   └─ggnetwork:::fortify.network(data, ...)
    8.     └─ggnetwork:::format_fortify(...)
    9.       └─base::cbind.data.frame(...)
   10.         └─base::data.frame(..., check.names = FALSE)
   11.           ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   12.           └─base::as.data.frame.list(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   13.             ├─base::do.call(data.frame, c(x, alis))
   14.             └─base (local) `<fn>`(...)
   15.               ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   16.               └─base::as.data.frame.character(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
  ── Error ('test-geom-edges.R:45'): geom_edgelabel works ────────────────────────
  Error in `if (stringsAsFactors) x <- factor(x)`: argument is of length zero
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-geom-edges.R:45:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─ggplot2::ggplot(emon[[1]], ggplot2::aes(x, y, xend = xend, yend = yend)) at test-geom-edges.R:46:4
    5. └─ggplot2:::ggplot.default(...)
    6.   ├─ggplot2::fortify(data, ...)
    7.   └─ggnetwork:::fortify.network(data, ...)
    8.     └─ggnetwork:::format_fortify(...)
    9.       └─base::cbind.data.frame(...)
   10.         └─base::data.frame(..., check.names = FALSE)
   11.           ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   12.           └─base::as.data.frame.list(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   13.             ├─base::do.call(data.frame, c(x, alis))
   14.             └─base (local) `<fn>`(...)
   15.               ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   16.               └─base::as.data.frame.character(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
  ── Error ('test-geom-edges.R:54'): geom_edgetext_repel works ───────────────────
  Error in `if (stringsAsFactors) x <- factor(x)`: argument is of length zero
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-geom-edges.R:54:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─ggplot2::ggplot(emon[[1]], ggplot2::aes(x, y, xend = xend, yend = yend)) at test-geom-edges.R:55:4
    5. └─ggplot2:::ggplot.default(...)
    6.   ├─ggplot2::fortify(data, ...)
    7.   └─ggnetwork:::fortify.network(data, ...)
    8.     └─ggnetwork:::format_fortify(...)
    9.       └─base::cbind.data.frame(...)
   10.         └─base::data.frame(..., check.names = FALSE)
   11.           ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   12.           └─base::as.data.frame.list(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   13.             ├─base::do.call(data.frame, c(x, alis))
   14.             └─base (local) `<fn>`(...)
   15.               ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   16.               └─base::as.data.frame.character(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
  ── Error ('test-geom-edges.R:63'): geom_edgelabel_repel works ──────────────────
  Error in `if (stringsAsFactors) x <- factor(x)`: argument is of length zero
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-geom-edges.R:63:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─ggplot2::ggplot(emon[[1]], ggplot2::aes(x, y, xend = xend, yend = yend)) at test-geom-edges.R:64:4
    5. └─ggplot2:::ggplot.default(...)
    6.   ├─ggplot2::fortify(data, ...)
    7.   └─ggnetwork:::fortify.network(data, ...)
    8.     └─ggnetwork:::format_fortify(...)
    9.       └─base::cbind.data.frame(...)
   10.         └─base::data.frame(..., check.names = FALSE)
   11.           ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   12.           └─base::as.data.frame.list(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   13.             ├─base::do.call(data.frame, c(x, alis))
   14.             └─base (local) `<fn>`(...)
   15.               ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   16.               └─base::as.data.frame.character(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
  ── Error ('test-geom-nodes.R:6'): geom_nodes works ─────────────────────────────
  Error in `if (stringsAsFactors) x <- factor(x)`: argument is of length zero
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-geom-nodes.R:6:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─ggplot2::ggplot(emon[[1]], aes(x, y)) at test-geom-nodes.R:7:4
    5. └─ggplot2:::ggplot.default(emon[[1]], aes(x, y))
    6.   ├─ggplot2::fortify(data, ...)
    7.   └─ggnetwork:::fortify.network(data, ...)
    8.     └─ggnetwork:::format_fortify(...)
    9.       └─base::cbind.data.frame(...)
   10.         └─base::data.frame(..., check.names = FALSE)
   11.           ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   12.           └─base::as.data.frame.list(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   13.             ├─base::do.call(data.frame, c(x, alis))
   14.             └─base (local) `<fn>`(...)
   15.               ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   16.               └─base::as.data.frame.character(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
  ── Error ('test-geom-nodes.R:20'): geom_nodetext works ─────────────────────────
  Error in `if (stringsAsFactors) x <- factor(x)`: argument is of length zero
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-geom-nodes.R:20:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─ggplot2::ggplot(emon[[1]], aes(x, y, xend = xend, yend = yend)) at test-geom-nodes.R:21:4
    5. └─ggplot2:::ggplot.default(emon[[1]], aes(x, y, xend = xend, yend = yend))
    6.   ├─ggplot2::fortify(data, ...)
    7.   └─ggnetwork:::fortify.network(data, ...)
    8.     └─ggnetwork:::format_fortify(...)
    9.       └─base::cbind.data.frame(...)
   10.         └─base::data.frame(..., check.names = FALSE)
   11.           ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   12.           └─base::as.data.frame.list(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   13.             ├─base::do.call(data.frame, c(x, alis))
   14.             └─base (local) `<fn>`(...)
   15.               ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   16.               └─base::as.data.frame.character(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
  ── Error ('test-geom-nodes.R:43'): geom_nodetext_repel works ───────────────────
  Error in `if (stringsAsFactors) x <- factor(x)`: argument is of length zero
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-geom-nodes.R:43:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─ggplot2::ggplot(emon[[1]], aes(x, y, xend = xend, yend = yend)) at test-geom-nodes.R:44:4
    5. └─ggplot2:::ggplot.default(emon[[1]], aes(x, y, xend = xend, yend = yend))
    6.   ├─ggplot2::fortify(data, ...)
    7.   └─ggnetwork:::fortify.network(data, ...)
    8.     └─ggnetwork:::format_fortify(...)
    9.       └─base::cbind.data.frame(...)
   10.         └─base::data.frame(..., check.names = FALSE)
   11.           ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   12.           └─base::as.data.frame.list(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   13.             ├─base::do.call(data.frame, c(x, alis))
   14.             └─base (local) `<fn>`(...)
   15.               ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   16.               └─base::as.data.frame.character(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
  ── Error ('test-geom-nodes.R:52'): geom_nodelabel works ────────────────────────
  Error in `if (stringsAsFactors) x <- factor(x)`: argument is of length zero
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-geom-nodes.R:52:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─ggplot2::ggplot(emon[[1]], aes(x, y, xend = xend, yend = yend)) at test-geom-nodes.R:53:4
    5. └─ggplot2:::ggplot.default(emon[[1]], aes(x, y, xend = xend, yend = yend))
    6.   ├─ggplot2::fortify(data, ...)
    7.   └─ggnetwork:::fortify.network(data, ...)
    8.     └─ggnetwork:::format_fortify(...)
    9.       └─base::cbind.data.frame(...)
   10.         └─base::data.frame(..., check.names = FALSE)
   11.           ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   12.           └─base::as.data.frame.list(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   13.             ├─base::do.call(data.frame, c(x, alis))
   14.             └─base (local) `<fn>`(...)
   15.               ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   16.               └─base::as.data.frame.character(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
  ── Error ('test-geom-nodes.R:75'): geom_nodelabel_repel works ──────────────────
  Error in `if (stringsAsFactors) x <- factor(x)`: argument is of length zero
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-geom-nodes.R:75:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─ggplot2::ggplot(emon[[1]], aes(x, y, xend = xend, yend = yend)) at test-geom-nodes.R:76:4
    5. └─ggplot2:::ggplot.default(emon[[1]], aes(x, y, xend = xend, yend = yend))
    6.   ├─ggplot2::fortify(data, ...)
    7.   └─ggnetwork:::fortify.network(data, ...)
    8.     └─ggnetwork:::format_fortify(...)
    9.       └─base::cbind.data.frame(...)
   10.         └─base::data.frame(..., check.names = FALSE)
   11.           ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   12.           └─base::as.data.frame.list(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   13.             ├─base::do.call(data.frame, c(x, alis))
   14.             └─base (local) `<fn>`(...)
   15.               ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   16.               └─base::as.data.frame.character(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
  ── Error ('test-ggnetwork.R:20'): ggnetwork works ──────────────────────────────
  Error in `if (stringsAsFactors) x <- factor(x)`: argument is of length zero
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-ggnetwork.R:20:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─ggnetwork::ggnetwork(emon[[1]], arrow.gap = 0.02, by = "Frequency") at test-ggnetwork.R:21:4
    5.   └─ggnetwork:::fortify.network(x, ...)
    6.     └─ggnetwork:::format_fortify(...)
    7.       └─base::cbind.data.frame(...)
    8.         └─base::data.frame(..., check.names = FALSE)
    9.           ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   10.           └─base::as.data.frame.list(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   11.             ├─base::do.call(data.frame, c(x, alis))
   12.             └─base (local) `<fn>`(...)
   13.               ├─base::as.data.frame(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
   14.               └─base::as.data.frame.character(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors)
  ── Error ('test-utilities.R:6'): theme_blank works ─────────────────────────────
  Error in `if (stringsAsFactors) x <- factor(x)`: argument is of length zero
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-utilities.R:6:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─ggplot2::ggplot(...) at test-utilities.R:7:4
    5. └─ggnetwork::ggnetwork(emon[[1]])
    6.   └─ggnetwork:::fortify.network(x, ...)
    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)
  ── Error ('test-utilities.R:17'): theme_facet works ────────────────────────────
  Error in `if (stringsAsFactors) x <- factor(x)`: argument is of length zero
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-utilities.R:17:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─ggplot2::ggplot(...) at test-utilities.R:18:4
    5. └─ggnetwork::ggnetwork(emon[[1]])
    6.   └─ggnetwork:::fortify.network(x, ...)
    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 15 | WARN 0 | SKIP 0 | PASS 11 ]
  Error: Test failures
  Execution halted