context("layout_with_sugiyama")
test_that("layout_with_sugiyama does not demote matrices to vectors in res$layout.dummy", {
ex <- graph.formula( A -+ B:C, B -+ C:D)
layex <- layout.sugiyama(ex, layers=NULL)
expect_that(nrow(layex$layout.dummy), equals(1))
})
Generated by dwww version 1.15 on Sun Jun 23 20:51:57 CEST 2024.