Nothing
test_that("layout_with_sugiyama does not demote matrices to vectors in res$layout.dummy", {
ex <- graph_from_literal(A -+ B:C, B -+ C:D)
layex <- layout.sugiyama(ex, layers = NULL)
expect_that(nrow(layex$layout.dummy), equals(1))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.