Nothing
# context("gexf function")
#
# # ------------------------------------------------------------------------------
# test_that("data.frame or matrix work OK", {
nodes <- cbind(a=1:10, b=letters[1:10])
edges <- matrix(sample(1:10, 20, TRUE), ncol=2)
set.seed(1);ans0 <- gexf(as.data.frame(nodes), as.data.frame(edges))
set.seed(1);ans1 <- gexf(nodes, edges)
expect_equal(ans0,ans1)
# })
# ------------------------------------------------------------------------------
# test_that("errors", {
nodes <- cbind(a=1:10, b=letters[1:10])
edges <- matrix(sample(1:10, 20, TRUE), ncol=2)
# edge.list
expect_error(edge.list(cbind(1:10)), "number of columns")
expect_error(edge.list(list), "class not supported")
# gexf
expect_error(gexf(nodes[,-1,drop=FALSE], edges), "nodes.+columns")
expect_error(gexf(nodes, edges[,-1,drop=FALSE]), "edges.+columns")
expect_error(gexf(nodes, edges, digits = 1.1), "digits")
expect_error(gexf(nodes, edges, nodeDynamic = nodes[-1,,drop=TRUE]),
"number of rows")
expect_error(gexf(nodes, edges, edgeDynamic = edges[-1,,drop=TRUE]),
"number of rows")
expect_error(gexf(nodes, edges, nodeDynamic = list(1)),"should be a ")
expect_error(gexf(nodes, edges, edgeDynamic = list(1)),"should be a ")
# })
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.