tests/testthat/test-packagesSupported.R

test_that("IncidencePrevalence shiny", {
  skip_on_cran()
  directory <- tempdir()
  exportStaticApp(result = omopViewerResults, directory = directory)
  expect_true("shiny" %in% list.files(directory))
  unlink(file.path(directory, "shiny"), recursive = TRUE)
})

Try the OmopViewer package in your browser

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

OmopViewer documentation built on April 15, 2025, 5:08 p.m.