tests/testthat/test-plot_graph_3d.R

In neurogenomics/HPOExplorer: Analysis and Visualisation of the Human Phenotype Ontology

test_that("plot_graph_3d works", {

  phenos <- make_phenos_dataframe(ancestor = "Neurodevelopmental delay")[seq(1,100),]
  g <- make_igraph_object(phenos = phenos)
  plt <- suppressWarnings(
    KGExplorer::plot_graph_3d(g=g, show_plot = FALSE)
  )
  testthat::expect_true(methods::is(g,"igraph"))
  testthat::expect_in(length(g),seq(21, 28))
  testthat::expect_true(methods::is(plt,"plotly"))
})