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 16 14:53:02 CEST 2024.