tests/testthat/tests-start_treeviz.R

In HCBravoLab/palmtree: R/Bioconductor package to interactively explore and visualize single cell RNA-seq datasets with hierarhical annotations

context("create TreeVizApp class")
library(Seurat)
library(scater)

test_that("startTreeViz creates a TreeVizApp Object from Seurat", {
  skip("need data here")
  app <- startTreeviz(non_interactive=TRUE)
  expect_is(app, "TreeVizApp")
  
  expect_is(app$server, "EpivizServer")
  expect_is(app$chart_mgr, "EpivizChartMgr")
  expect_is(app$data_mgr, "EpivizDataMgr")
  
  expect_true(app$server$is_closed())
})