tests/testthat/test-prioritise_targets_network.R

In neurogenomics/MultiEWCE: Multi-Scale Target Explorer

test_that("prioritise_targets_network works", {

  vn <- prioritise_targets_network(top_targets = example_targets$top_targets)
  testthat::expect_true(methods::is(vn$plot,"visNetwork"))
  testthat::expect_true(methods::is(vn$data,"tbl_graph"))


  # all_targets <- prioritise_targets(keep_tiers = NULL)
  # vn2 <- prioritise_targets_network(top_targets = all_targets,
  #                                   show_plot = FALSE)
  # testthat::expect_true(methods::is(vn2$plot,"visNetwork"))
  # testthat::expect_true(methods::is(vn2$graph,"igraph"))
})