context("merge_coords") test_that("merge_coords works", { library(igraph) set.seed(42) g <- list(make_ring(10), make_ring(5)) l <- lapply(g, layout_with_mds) l lm <- merge_coords(g, l) expect_true(is.matrix(lm)) expect_that(ncol(lm), equals(2)) expect_that(nrow(lm), equals(sum(sapply(g, vcount)))) ########## ## Stress test for (i in 1:10) { g <- sample_gnp(100, 2/100) l <- layout_with_mds(g) expect_that(dim(l), equals(c(vcount(g), 2))) } })
Generated by dwww version 1.15 on Sun Jun 16 12:54:49 CEST 2024.