tests/testthat/test-flatten.R

In AHWA-Lab-Frankfurt/dimensional:

library(dimensional)
decor.graph <- tidygraph::tbl_graph(nodes = nodes_decor, edges = edges_decor, directed = FALSE)

unweight.flattened <- decor.graph %>% igraph::simplify(edge.attr.comb = "ignore") %>%
  tidygraph::as_tbl_graph()

uf <- flatten(decor.graph)
wf <- flatten(decor.graph, weighted = TRUE)


test_that("unweighted flattening does not retain weights", {
  expect_false(igraph::is.weighted(uf))
})

test_that("weighted flattening retains weights in named column: weight", {
  expect_true(igraph::is.weighted(wf))
})