tests/testthat/basic.R

In lanceupton/shinyROI: shinyROI

library(shinyROI)
library(golem)

test_that("UI works", {
  ui <- app_ui()
  expect_shinytaglist(ui)
})

test_that("Server works", {
  server <- app_server
  expect_is(server, "function")
})

# Configure this test to fit your need
test_that("App launches", {
  skip_on_cran()
  skip_on_travis()
  skip_on_appveyor()
  x <- processx::process$new("R", c("-e", "setwd('../../'); pkgload::load_all();run_app()"))
  Sys.sleep(5)
  expect_true(x$is_alive())
  x$kill()
})