use a similar skipping strategy for shinytest

Author: cpsievert

tests/testthat/helper-skip.R

@@ -15,3 +15,11 @@ skip_cloud_tests <- function() {
     skip("Cloud testing is only run on Windows with the current release of R")
   }
 }
+
+skip_shinytest_tests <- function() {
+  skip_on_cran()
+  skip_if_not_installed("shinytest")
+  if (!as.logical(Sys.getenv("SHINYTEST", FALSE))) {
+    skip("shinytest testing requires the SHINYTEST environment variable to be true")
+  }
+}

tests/testthat/helper-vdiffr.R

@@ -46,9 +46,6 @@ if (enable_vdiffr) {
     writeLines(svg_txt, file)
   }
 
-  # force the vdiffr shiny app to open in a real browser 
-  # (some svg files seem to not render properly in RStudio)
-  options(shiny.launch.browser = interactive())
 } 
 
 expect_doppelganger <- function(p, name, ...) {

tests/testthat/test-plotly-shiny.R

@@ -20,13 +20,8 @@ test_that("event_unregister() de-registers an event", {
 })
 
 test_that("event_data shiny app works", {
-  skip_on_cran()
-  skip_if_not_installed("shinytest")
-  if (enable_vdiffr) skip("shiny testing not performed during visual testing")
+  skip_shinytest_tests()
 
-  # 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 = "plotly", "examples", "shiny", "event_data")
-  shinytest::expect_pass(shinytest::testApp(appdir, compareImages = FALSE))
+  shinytest::expect_pass(shinytest::testApp(appdir))
 })