tests/testthat/tests-start_treeviz.R

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())
})
HCBravoLab/palmtree documentation built on Dec. 17, 2021, 10:25 p.m.