tests/testthat/test-as.edgelist.R

In network: Classes for Relational Data

test<-network.initialize(5)
add.edges(test,5,1)
add.edges(test,1,5)
set.edge.attribute(test,'value',c('a','b'))
set.edge.attribute(test,'weight',10:11)

expect_equal(
  as.matrix.network.edgelist(test),
  structure(c(5L, 1L, 1L, 5L), .Dim = c(2L, 2L), n = 5, vnames = 1:5)
  )
# sort order should be different
if(Sys.getenv("_R_CLASS_MATRIX_ARRAY_") == "" & getRversion() < "4.0.0"){
  expect_equal(
    as.edgelist(test),
    structure(c(1L, 5L, 5L, 1L), .Dim = c(2L, 2L), n = 5, vnames = 1:5, directed = TRUE, bipartite = FALSE, loops = FALSE, class = c("matrix_edgelist", "edgelist","matrix"))
    )
}else{
  expect_equal(
    as.edgelist(test),
    structure(c(1L, 5L, 5L, 1L), .Dim = c(2L, 2L), n = 5, vnames = 1:5, directed = TRUE, bipartite = FALSE, loops = FALSE, class = c("matrix_edgelist", "edgelist","matrix","array"))
    )
}

expect_true(is.edgelist(as.edgelist(test)))

# numeric attribute
expect_equal(as.matrix.network.edgelist(test,attrname='weight'),structure(c(5L, 1L, 1L, 5L, 10L, 11L), .Dim = 2:3, n = 5, vnames = 1:5))

# character attribute  NOTE makes the matrix character as well
expect_equal(as.matrix.network.edgelist(test,attrname='value'),structure(c('5', '1', '1', '5', 'a', 'b'), .Dim = 2:3, n = 5, vnames = 1:5))

# character attribute with tibble output: does not make matrix character
expect_equal(as.edgelist(test,attrname='value', output="tibble"),
             structure(list(.tail = c(1L, 5L), .head = c(5L, 1L),
                            value = c("b", "a")), row.names = c(NA, -2L),
                       class = c("tibble_edgelist", "edgelist", "tbl_df", "tbl", "data.frame"),
                       n = 5, vnames = 1:5, directed = TRUE, bipartite = FALSE, loops = FALSE)
)


undir<-network.initialize(5,directed=FALSE)
add.edges(undir,5,1)
# direction will be swapped to tail < head
expect_equal(as.edgelist(undir)[,], c(1,5))

# empty network
as.edgelist(network.initialize(0))

# deleted edges
deledge<-network.initialize(5)
add.edges(deledge,1:3,2:4)
delete.edges(deledge,2)
if(Sys.getenv("_R_CLASS_MATRIX_ARRAY_")==""  & getRversion() < "4.0.0"){
  expect_equal(
    as.edgelist(deledge),
    structure(c(1L, 3L, 2L, 4L), .Dim = c(2L, 2L), n = 5, vnames = 1:5, directed = TRUE, bipartite = FALSE, loops = FALSE, class = c("matrix_edgelist", "edgelist", "matrix"))
    )
}else{
  expect_equal(
    as.edgelist(deledge),
    structure(c(1L, 3L, 2L, 4L), .Dim = c(2L, 2L), n = 5, vnames = 1:5, directed = TRUE, bipartite = FALSE, loops = FALSE, class = c("matrix_edgelist", "edgelist", "matrix", "array"))
    )
}

nw <- network.initialize(10L, directed = FALSE)
nw[1L,5L] <- 1L
nw[1L,10L] <- 1L
nw %e% "attr" <- c("a","b")
expect_identical(as.edgelist(nw), structure(matrix(c(1L,1L,5L,10L), nrow = 2L), 
                                            n = 10L, 
                                            vnames = seq_len(10L), 
                                            directed = FALSE, 
                                            bipartite = FALSE, 
                                            loops = FALSE, 
                                            class = c("matrix_edgelist", "edgelist", "matrix", "array")))

expect_identical(as.edgelist(nw, attrname = "attr"), structure(matrix(c("1","1","5","10","a","b"), nrow = 2L), 
                                                               n = 10L, 
                                                               vnames = seq_len(10L), 
                                                               directed = FALSE, 
                                                               bipartite = FALSE, 
                                                               loops = FALSE, 
                                                               class = c("matrix_edgelist", "edgelist", "matrix", "array")))

nw %n% "bipartite" <- 4L

expect_identical(as.edgelist(nw), structure(matrix(c(1L,1L,5L,10L), nrow = 2L), 
                                            n = 10L, 
                                            vnames = seq_len(10L), 
                                            directed = FALSE, 
                                            bipartite = 4L, 
                                            loops = FALSE, 
                                            class = c("matrix_edgelist", "edgelist", "matrix", "array")))

expect_identical(as.edgelist(nw, attrname = "attr"), structure(matrix(c("1","1","5","10","a","b"), nrow = 2L), 
                                                               n = 10L, 
                                                               vnames = seq_len(10L), 
                                                               directed = FALSE, 
                                                               bipartite = 4L, 
                                                               loops = FALSE, 
                                                               class = c("matrix_edgelist", "edgelist", "matrix", "array")))