CRAN Package Check Results for Package ggnetwork

Last updated on 2019-11-26 00:51:52 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.5.1 4.44 72.14 76.58 ERROR
r-devel-linux-x86_64-debian-gcc 0.5.1 3.58 57.35 60.93 ERROR
r-devel-linux-x86_64-fedora-clang 0.5.1 87.99 OK
r-devel-linux-x86_64-fedora-gcc 0.5.1 86.68 OK
r-devel-windows-ix86+x86_64 0.5.1 26.00 98.00 124.00 OK
r-devel-windows-ix86+x86_64-gcc8 0.5.1 16.00 78.00 94.00 OK
r-patched-linux-x86_64 0.5.1 4.46 69.99 74.45 OK
r-patched-solaris-x86 0.5.1 109.20 OK
r-release-linux-x86_64 0.5.1 4.13 70.82 74.95 OK
r-release-windows-ix86+x86_64 0.5.1 18.00 82.00 100.00 OK
r-release-osx-x86_64 0.5.1 OK
r-oldrel-windows-ix86+x86_64 0.5.1 6.00 103.00 109.00 OK
r-oldrel-osx-x86_64 0.5.1 OK

Check Details

Version: 0.5.1
Check: examples
Result: ERROR
    Running examples in 'ggnetwork-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: fortify.network
    > ### Title: Fortify method for networks of class 'network'
    > ### Aliases: fortify.network
    >
    > ### ** Examples
    >
    > if (require(ggplot2) && require(network)) {
    +
    + # source: ?network::flo
    + data(flo)
    +
    + # data example
    + ggnetwork(flo)
    +
    + # plot example
    + ggplot(ggnetwork(flo), aes(x, y, xend = xend, yend = yend)) +
    + geom_edges(alpha = 0.5) +
    + geom_nodes(size = 12, color = "white") +
    + geom_nodetext(aes(label = vertex.names), fontface = "bold") +
    + theme_blank()
    +
    + # source: ?network::emon
    + data(emon)
    +
    + # data example
    + ggnetwork(emon[[1]], layout = "target", niter = 100)
    +
    + # data example with edge weights
    + ggnetwork(emon[[1]], layout = "kamadakawai", weights = "Frequency")
    +
    + # plot example with straight edges
    + ggplot(ggnetwork(emon[[1]], layout = "kamadakawai", arrow.gap = 0.025),
    + aes(x, y, xend = xend, yend = yend)) +
    + geom_edges(aes(color = Frequency),
    + arrow = arrow(length = unit(10, "pt"), type = "closed")) +
    + geom_nodes(aes(size = Formalization)) +
    + scale_color_gradient(low = "grey50", high = "tomato") +
    + scale_size_area(breaks = 1:3) +
    + theme_blank()
    +
    + # plot example with curved edges
    + ggplot(ggnetwork(emon[[1]], layout = "kamadakawai", arrow.gap = 0.025),
    + aes(x, y, xend = xend, yend = yend)) +
    + geom_edges(aes(color = Frequency), curvature = 0.1,
    + arrow = arrow(length = unit(10, "pt"), type = "open")) +
    + geom_nodes(aes(size = Formalization)) +
    + scale_color_gradient(low = "grey50", high = "tomato") +
    + scale_size_area(breaks = 1:3) +
    + theme_blank()
    +
    + # facet by edge attribute
    + ggplot(ggnetwork(emon[[1]], arrow.gap = 0.02, by = "Frequency"),
    + aes(x, y, xend = xend, yend = yend)) +
    + geom_edges(arrow = arrow(length = unit(5, "pt"), type = "closed")) +
    + geom_nodes() +
    + theme_blank() +
    + facet_grid(. ~ Frequency, labeller = label_both)
    +
    + # user-provided layout
    + ggplot(ggnetwork(emon[[1]], layout = matrix(runif(28), ncol = 2)),
    + aes(x, y, xend = xend, yend = yend)) +
    + geom_edges(arrow = arrow(length = unit(5, "pt"), type = "closed")) +
    + geom_nodes() +
    + theme_blank()
    +
    + }
    Loading required package: network
    network: Classes for Relational Data
    Version 1.15 created on 2019-04-01.
    copyright (c) 2005, Carter T. Butts, University of California-Irvine
     Mark S. Handcock, University of California -- Los Angeles
     David R. Hunter, Penn State University
     Martina Morris, University of Washington
     Skye Bender-deMoll, University of Washington
     For citation information, type citation("network").
     Type help("network-package") to get started.
    
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    ggnetwork
     --- call from context ---
    ggnetwork(flo)
     --- call from argument ---
    if (class(x) == "igraph") {
     fortify.igraph(x, ...)
    } else {
     if (!network::is.network(x)) {
     x = try(network::network(x), silent = TRUE)
     }
     if (!network::is.network(x)) {
     stop("could not coerce object to a network")
     }
     else {
     fortify.network(x, ...)
     }
    }
     --- R stacktrace ---
    where 1: ggnetwork(flo)
    
     --- value of length: 2 type: logical ---
    [1] FALSE FALSE
     --- function from context ---
    function (x, ...)
    {
     if (class(x) == "igraph") {
     fortify.igraph(x, ...)
     }
     else {
     if (!network::is.network(x)) {
     x = try(network::network(x), silent = TRUE)
     }
     if (!network::is.network(x)) {
     stop("could not coerce object to a network")
     }
     else {
     fortify.network(x, ...)
     }
     }
    }
    <bytecode: 0x551e078>
    <environment: namespace:ggnetwork>
     --- function search by body ---
    Function ggnetwork in namespace ggnetwork has this body.
     ----------- END OF FAILURE REPORT --------------
    Fatal error: the condition has length > 1
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.5.1
Check: tests
Result: ERROR
     Running 'testthat.R' [13s/15s]
    Running the tests in 'tests/testthat.R' failed.
    Complete output:
     > library(testthat)
     > library(ggnetwork)
     Loading required package: ggplot2
     >
     > test_check("ggnetwork")
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
     :
     --- package (from environment) ---
     ggnetwork
     --- call from context ---
     ggnetwork(rbind(matrix(c(1:2, 2:1), nrow = 2), matrix(c(1:2,
     2:1), nrow = 2)))
     --- call from argument ---
     if (class(x) == "igraph") {
     fortify.igraph(x, ...)
     } else {
     if (!network::is.network(x)) {
     x = try(network::network(x), silent = TRUE)
     }
     if (!network::is.network(x)) {
     stop("could not coerce object to a network")
     }
     else {
     fortify.network(x, ...)
     }
     }
     --- R stacktrace ---
     where 1: ggnetwork(rbind(matrix(c(1:2, 2:1), nrow = 2), matrix(c(1:2,
     2:1), nrow = 2)))
     where 2: eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
     where 3: withCallingHandlers(code, warning = function(condition) {
     out$push(condition)
     maybe_restart("muffleWarning")
     })
     where 4: .capture(act$val <- eval_bare(quo_get_expr(.quo), quo_get_env(.quo)),
     ...)
     where 5: quasi_capture(enquo(object), label, capture_warnings)
     where 6 at testthat/test-ggnetwork.R#21: expect_warning(ggnetwork(rbind(matrix(c(1:2, 2:1), nrow = 2),
     matrix(c(1:2, 2:1), nrow = 2))), "duplicated edges")
     where 7: eval(code, test_env)
     where 8: eval(code, test_env)
     where 9: withCallingHandlers({
     eval(code, test_env)
     if (!handled && !is.null(test)) {
     skip_empty()
     }
     }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,
     message = handle_message, error = handle_error)
     where 10: doTryCatch(return(expr), name, parentenv, handler)
     where 11: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     where 12: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     where 13: doTryCatch(return(expr), name, parentenv, handler)
     where 14: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
     names[nh], parentenv, handlers[[nh]])
     where 15: tryCatchList(expr, classes, parentenv, handlers)
     where 16: tryCatch(withCallingHandlers({
     eval(code, test_env)
     if (!handled && !is.null(test)) {
     skip_empty()
     }
     }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,
     message = handle_message, error = handle_error), error = handle_fatal,
     skip = function(e) {
     })
     where 17: test_code(desc, code, env = parent.frame())
     where 18 at testthat/test-ggnetwork.R#6: test_that("ggnetwork works", {
     expect_error(ggnetwork(-999, "could not coerce"))
     expect_error(ggnetwork(emon[[1]], layout = -999, "unsupported layout"))
     ggnetwork(emon[[1]], arrow.gap = 0.02, by = "Frequency")
     ggnetwork(emon[[1]], layout = matrix(runif(28), ncol = 2))
     ggnetwork(emon[[1]], layout = "kamadakawai", weights = "Frequency")
     expect_warning(ggnetwork(rbind(matrix(c(1:2, 2:1), nrow = 2),
     matrix(c(1:2, 2:1), nrow = 2))), "duplicated edges")
     })
     where 19: eval(code, test_env)
     where 20: eval(code, test_env)
     where 21: withCallingHandlers({
     eval(code, test_env)
     if (!handled && !is.null(test)) {
     skip_empty()
     }
     }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,
     message = handle_message, error = handle_error)
     where 22: doTryCatch(return(expr), name, parentenv, handler)
     where 23: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     where 24: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     where 25: doTryCatch(return(expr), name, parentenv, handler)
     where 26: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
     names[nh], parentenv, handlers[[nh]])
     where 27: tryCatchList(expr, classes, parentenv, handlers)
     where 28: tryCatch(withCallingHandlers({
     eval(code, test_env)
     if (!handled && !is.null(test)) {
     skip_empty()
     }
     }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,
     message = handle_message, error = handle_error), error = handle_fatal,
     skip = function(e) {
     })
     where 29: test_code(NULL, exprs, env)
     where 30: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
     where 31: force(code)
     where 32: doWithOneRestart(return(expr), restart)
     where 33: withOneRestart(expr, restarts[[1L]])
     where 34: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     where 35: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter,
     {
     reporter$start_file(basename(path))
     lister$start_file(basename(path))
     source_file(path, new.env(parent = env), chdir = TRUE,
     wrap = wrap)
     reporter$.end_context()
     reporter$end_file()
     })
     where 36: FUN(X[[i]], ...)
     where 37: lapply(paths, test_file, env = env, reporter = current_reporter,
     start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
     where 38: force(code)
     where 39: doWithOneRestart(return(expr), restart)
     where 40: withOneRestart(expr, restarts[[1L]])
     where 41: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     where 42: with_reporter(reporter = current_reporter, results <- lapply(paths,
     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,
     load_helpers = FALSE, wrap = wrap))
     where 43: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,
     stop_on_warning = stop_on_warning, wrap = wrap)
     where 44: test_dir(path = test_path, reporter = reporter, env = env, filter = filter,
     ..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,
     wrap = wrap)
     where 45: test_package_dir(package = package, test_path = test_path, filter = filter,
     reporter = reporter, ..., stop_on_failure = stop_on_failure,
     stop_on_warning = stop_on_warning, wrap = wrap)
     where 46: test_check("ggnetwork")
    
     --- value of length: 2 type: logical ---
     [1] FALSE FALSE
     --- function from context ---
     function (x, ...)
     {
     if (class(x) == "igraph") {
     fortify.igraph(x, ...)
     }
     else {
     if (!network::is.network(x)) {
     x = try(network::network(x), silent = TRUE)
     }
     if (!network::is.network(x)) {
     stop("could not coerce object to a network")
     }
     else {
     fortify.network(x, ...)
     }
     }
     }
     <bytecode: 0x18b4000>
     <environment: namespace:ggnetwork>
     --- function search by body ---
     Function ggnetwork in namespace ggnetwork has this body.
     ----------- END OF FAILURE REPORT --------------
     Fatal error: the condition has length > 1
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.5.1
Check: examples
Result: ERROR
    Running examples in ‘ggnetwork-Ex.R’ failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: fortify.network
    > ### Title: Fortify method for networks of class 'network'
    > ### Aliases: fortify.network
    >
    > ### ** Examples
    >
    > if (require(ggplot2) && require(network)) {
    +
    + # source: ?network::flo
    + data(flo)
    +
    + # data example
    + ggnetwork(flo)
    +
    + # plot example
    + ggplot(ggnetwork(flo), aes(x, y, xend = xend, yend = yend)) +
    + geom_edges(alpha = 0.5) +
    + geom_nodes(size = 12, color = "white") +
    + geom_nodetext(aes(label = vertex.names), fontface = "bold") +
    + theme_blank()
    +
    + # source: ?network::emon
    + data(emon)
    +
    + # data example
    + ggnetwork(emon[[1]], layout = "target", niter = 100)
    +
    + # data example with edge weights
    + ggnetwork(emon[[1]], layout = "kamadakawai", weights = "Frequency")
    +
    + # plot example with straight edges
    + ggplot(ggnetwork(emon[[1]], layout = "kamadakawai", arrow.gap = 0.025),
    + aes(x, y, xend = xend, yend = yend)) +
    + geom_edges(aes(color = Frequency),
    + arrow = arrow(length = unit(10, "pt"), type = "closed")) +
    + geom_nodes(aes(size = Formalization)) +
    + scale_color_gradient(low = "grey50", high = "tomato") +
    + scale_size_area(breaks = 1:3) +
    + theme_blank()
    +
    + # plot example with curved edges
    + ggplot(ggnetwork(emon[[1]], layout = "kamadakawai", arrow.gap = 0.025),
    + aes(x, y, xend = xend, yend = yend)) +
    + geom_edges(aes(color = Frequency), curvature = 0.1,
    + arrow = arrow(length = unit(10, "pt"), type = "open")) +
    + geom_nodes(aes(size = Formalization)) +
    + scale_color_gradient(low = "grey50", high = "tomato") +
    + scale_size_area(breaks = 1:3) +
    + theme_blank()
    +
    + # facet by edge attribute
    + ggplot(ggnetwork(emon[[1]], arrow.gap = 0.02, by = "Frequency"),
    + aes(x, y, xend = xend, yend = yend)) +
    + geom_edges(arrow = arrow(length = unit(5, "pt"), type = "closed")) +
    + geom_nodes() +
    + theme_blank() +
    + facet_grid(. ~ Frequency, labeller = label_both)
    +
    + # user-provided layout
    + ggplot(ggnetwork(emon[[1]], layout = matrix(runif(28), ncol = 2)),
    + aes(x, y, xend = xend, yend = yend)) +
    + geom_edges(arrow = arrow(length = unit(5, "pt"), type = "closed")) +
    + geom_nodes() +
    + theme_blank()
    +
    + }
    Loading required package: network
    network: Classes for Relational Data
    Version 1.15 created on 2019-04-01.
    copyright (c) 2005, Carter T. Butts, University of California-Irvine
     Mark S. Handcock, University of California -- Los Angeles
     David R. Hunter, Penn State University
     Martina Morris, University of Washington
     Skye Bender-deMoll, University of Washington
     For citation information, type citation("network").
     Type help("network-package") to get started.
    
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    ggnetwork
     --- call from context ---
    ggnetwork(flo)
     --- call from argument ---
    if (class(x) == "igraph") {
     fortify.igraph(x, ...)
    } else {
     if (!network::is.network(x)) {
     x = try(network::network(x), silent = TRUE)
     }
     if (!network::is.network(x)) {
     stop("could not coerce object to a network")
     }
     else {
     fortify.network(x, ...)
     }
    }
     --- R stacktrace ---
    where 1: ggnetwork(flo)
    
     --- value of length: 2 type: logical ---
    [1] FALSE FALSE
     --- function from context ---
    function (x, ...)
    {
     if (class(x) == "igraph") {
     fortify.igraph(x, ...)
     }
     else {
     if (!network::is.network(x)) {
     x = try(network::network(x), silent = TRUE)
     }
     if (!network::is.network(x)) {
     stop("could not coerce object to a network")
     }
     else {
     fortify.network(x, ...)
     }
     }
    }
    <bytecode: 0x559fc9dde778>
    <environment: namespace:ggnetwork>
     --- function search by body ---
    Function ggnetwork in namespace ggnetwork has this body.
     ----------- END OF FAILURE REPORT --------------
    Fatal error: the condition has length > 1
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 0.5.1
Check: tests
Result: ERROR
     Running ‘testthat.R’ [10s/15s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(ggnetwork)
     Loading required package: ggplot2
     >
     > test_check("ggnetwork")
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
     :
     --- package (from environment) ---
     ggnetwork
     --- call from context ---
     ggnetwork(rbind(matrix(c(1:2, 2:1), nrow = 2), matrix(c(1:2,
     2:1), nrow = 2)))
     --- call from argument ---
     if (class(x) == "igraph") {
     fortify.igraph(x, ...)
     } else {
     if (!network::is.network(x)) {
     x = try(network::network(x), silent = TRUE)
     }
     if (!network::is.network(x)) {
     stop("could not coerce object to a network")
     }
     else {
     fortify.network(x, ...)
     }
     }
     --- R stacktrace ---
     where 1: ggnetwork(rbind(matrix(c(1:2, 2:1), nrow = 2), matrix(c(1:2,
     2:1), nrow = 2)))
     where 2: eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
     where 3: withCallingHandlers(code, warning = function(condition) {
     out$push(condition)
     maybe_restart("muffleWarning")
     })
     where 4: .capture(act$val <- eval_bare(quo_get_expr(.quo), quo_get_env(.quo)),
     ...)
     where 5: quasi_capture(enquo(object), label, capture_warnings)
     where 6 at testthat/test-ggnetwork.R#21: expect_warning(ggnetwork(rbind(matrix(c(1:2, 2:1), nrow = 2),
     matrix(c(1:2, 2:1), nrow = 2))), "duplicated edges")
     where 7: eval(code, test_env)
     where 8: eval(code, test_env)
     where 9: withCallingHandlers({
     eval(code, test_env)
     if (!handled && !is.null(test)) {
     skip_empty()
     }
     }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,
     message = handle_message, error = handle_error)
     where 10: doTryCatch(return(expr), name, parentenv, handler)
     where 11: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     where 12: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     where 13: doTryCatch(return(expr), name, parentenv, handler)
     where 14: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
     names[nh], parentenv, handlers[[nh]])
     where 15: tryCatchList(expr, classes, parentenv, handlers)
     where 16: tryCatch(withCallingHandlers({
     eval(code, test_env)
     if (!handled && !is.null(test)) {
     skip_empty()
     }
     }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,
     message = handle_message, error = handle_error), error = handle_fatal,
     skip = function(e) {
     })
     where 17: test_code(desc, code, env = parent.frame())
     where 18 at testthat/test-ggnetwork.R#6: test_that("ggnetwork works", {
     expect_error(ggnetwork(-999, "could not coerce"))
     expect_error(ggnetwork(emon[[1]], layout = -999, "unsupported layout"))
     ggnetwork(emon[[1]], arrow.gap = 0.02, by = "Frequency")
     ggnetwork(emon[[1]], layout = matrix(runif(28), ncol = 2))
     ggnetwork(emon[[1]], layout = "kamadakawai", weights = "Frequency")
     expect_warning(ggnetwork(rbind(matrix(c(1:2, 2:1), nrow = 2),
     matrix(c(1:2, 2:1), nrow = 2))), "duplicated edges")
     })
     where 19: eval(code, test_env)
     where 20: eval(code, test_env)
     where 21: withCallingHandlers({
     eval(code, test_env)
     if (!handled && !is.null(test)) {
     skip_empty()
     }
     }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,
     message = handle_message, error = handle_error)
     where 22: doTryCatch(return(expr), name, parentenv, handler)
     where 23: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     where 24: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     where 25: doTryCatch(return(expr), name, parentenv, handler)
     where 26: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
     names[nh], parentenv, handlers[[nh]])
     where 27: tryCatchList(expr, classes, parentenv, handlers)
     where 28: tryCatch(withCallingHandlers({
     eval(code, test_env)
     if (!handled && !is.null(test)) {
     skip_empty()
     }
     }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,
     message = handle_message, error = handle_error), error = handle_fatal,
     skip = function(e) {
     })
     where 29: test_code(NULL, exprs, env)
     where 30: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
     where 31: force(code)
     where 32: doWithOneRestart(return(expr), restart)
     where 33: withOneRestart(expr, restarts[[1L]])
     where 34: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     where 35: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter,
     {
     reporter$start_file(basename(path))
     lister$start_file(basename(path))
     source_file(path, new.env(parent = env), chdir = TRUE,
     wrap = wrap)
     reporter$.end_context()
     reporter$end_file()
     })
     where 36: FUN(X[[i]], ...)
     where 37: lapply(paths, test_file, env = env, reporter = current_reporter,
     start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
     where 38: force(code)
     where 39: doWithOneRestart(return(expr), restart)
     where 40: withOneRestart(expr, restarts[[1L]])
     where 41: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     where 42: with_reporter(reporter = current_reporter, results <- lapply(paths,
     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,
     load_helpers = FALSE, wrap = wrap))
     where 43: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,
     stop_on_warning = stop_on_warning, wrap = wrap)
     where 44: test_dir(path = test_path, reporter = reporter, env = env, filter = filter,
     ..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,
     wrap = wrap)
     where 45: test_package_dir(package = package, test_path = test_path, filter = filter,
     reporter = reporter, ..., stop_on_failure = stop_on_failure,
     stop_on_warning = stop_on_warning, wrap = wrap)
     where 46: test_check("ggnetwork")
    
     --- value of length: 2 type: logical ---
     [1] FALSE FALSE
     --- function from context ---
     function (x, ...)
     {
     if (class(x) == "igraph") {
     fortify.igraph(x, ...)
     }
     else {
     if (!network::is.network(x)) {
     x = try(network::network(x), silent = TRUE)
     }
     if (!network::is.network(x)) {
     stop("could not coerce object to a network")
     }
     else {
     fortify.network(x, ...)
     }
     }
     }
     <bytecode: 0x557083304728>
     <environment: namespace:ggnetwork>
     --- function search by body ---
     Function ggnetwork in namespace ggnetwork has this body.
     ----------- END OF FAILURE REPORT --------------
     Fatal error: the condition has length > 1
Flavor: r-devel-linux-x86_64-debian-gcc