tests/testthat/test-start_metaviz.R

context("create MetavizApp class")

test_that("startMetaviz creates a MetavizApp Object", {
  app <- startMetaviz(non_interactive=TRUE)
  expect_is(app, "MetavizApp")
  
  expect_is(app$server, "EpivizServer")
  expect_is(app$chart_mgr, "EpivizChartMgr")
  expect_is(app$data_mgr, "EpivizDataMgr")
  
  expect_true(app$server$is_closed())
})

Try the metavizr package in your browser

Any scripts or data that you put into this service are public.

metavizr documentation built on Nov. 8, 2020, 5:13 p.m.