dwww Home | Show directory contents | Find package

context("as.undirected")

test_that("as.undirected keeps attributes", {
  library(igraph)
  g <- graph_from_literal(A+-+B, A--+C, C+-+D)
  g$name <- "Tiny graph"
  E(g)$weight <- seq_len(ecount(g))

  g2 <- as.undirected(g, mode="collapse") ; df2 <- as_data_frame(g2)
  g3 <- as.undirected(g, mode="each")     ; df3 <- as_data_frame(g3)
  g4 <- as.undirected(g, mode="mutual")   ; df4 <- as_data_frame(g4)

  expect_that(g2$name, equals(g$name))
  expect_that(g3$name, equals(g$name))
  expect_that(g4$name, equals(g$name))
  
  expect_that(df2[order(df2[,1], df2[,2]),]$weight, equals(c(4,2,9)))
  expect_that(df3[order(df3[,1], df3[,2]),]$weight, equals(c(1,3,2,4,5)))
  expect_that(df4[order(df4[,1], df4[,2]),]$weight, equals(c(4,9)))
})

Generated by dwww version 1.15 on Sun Jun 16 12:11:40 CEST 2024.