run_tests.R

In jdgagnon/plotGrouper: Shiny app GUI wrapper for ggplot with built-in statistical analysis

library(testthat)
library(shinytest)

testthis::test_that("Application works", {
  # 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.
  shinytest::expect_pass(shinytest::testApp("inst/application/",
                                            compareImages = FALSE))
})