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 |
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