inst/tests/test-browsing.r

context("browser commands")

test_that("refresh works", {
  tryCatch({
    mgr <- .startMGR()
    mgr$refresh()
  }, finally=mgr$stopServer())
})

test_that("navigate works", {
  tryCatch({
    mgr <- .startMGR()
    mgr$navigate(chr="chr10", start=2000, end=10000)
  }, finally=mgr$stopServer())
})
epiviz/epivizr-release documentation built on May 16, 2019, 8:18 a.m.