tests/testthat/test_app_file.R

context("App")

library(shinytest)

test_that("app works", {
  skip_on_cran()

  appdir <- system.file(package = "shinyhighlightr", "appdir")
  expect_pass(testApp(appdir, compareImages = FALSE))
})
stefanieschneider/shinyhighlightr documentation built on Nov. 5, 2019, 9:21 a.m.