tests/testthat/test-shiny.R

In bd-R/bddwc.app: A User-Friendly Graphical Interface for Darwinizing Biodiversity Datasets

context("shiny tests")
# This file is for testing the applications in the inst/ directory.

library(shinytest)

test_that("bddwc.app() works", {
  
  # Don't run these tests on the CRAN build servers
  skip_on_cran()
  skip_on_travis()
  
  # Use compareImages=FALSE because the expected image screenshots were created
  # on a Mac, and they will differ from screenshots taken on the CI platform,
  # which runs on Linux.
  appdir <- system.file(package = "bddwc.app", "app")
  expect_pass(testApp(appdir, compareImages = FALSE))
})