tests/testthat/test-cluster.R

library(testthat)

context("Cluster")

test_that("clusters", {
  
  nodes <- sg_make_nodes() 
  edges <- sg_make_edges(nodes)
  
  sg <- sigmajs() %>% 
    sg_nodes(nodes, id, size) %>% 
    sg_edges(edges, id, source, target) %>% 
    sg_layout() %>% 
    sg_cluster(quiet = FALSE)
  
  expect_error(sg_nodes(nodes, id, size))
  expect_error(sg_edges(nodes, id, size))
  
  clustered <- sg_get_cluster(nodes, edges)
  
  expect_error(sg_get_cluster())
  
  expect_s3_class(clustered, "data.frame")
})
JohnCoene/sigmajs documentation built on Feb. 1, 2021, 12:12 p.m.