Ignore Screenshots during testing

ipb-halle · Jan 25, 2024 · 4b8fc45 · 4b8fc45
1 parent 0be7412
commit 4b8fc45
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/inst/MetFamily/tests/testthat/test-shinytest2.R b/inst/MetFamily/tests/testthat/test-shinytest2.R
@@ -1,10 +1,10 @@
 library(shinytest2)
 
 test_that("{shinytest2} recording: MetFamilyLoadExample", {
-  app <- AppDriver$new(variant = platform_variant(), name = "MetFamilyLoadExample", 
+  app <- AppDriver$new(variant = platform_variant(), name = "MetFamilyLoadExample",
       height = 1113, width = 1549)
-  app$expect_screenshot()
+  #app$expect_screenshot()
   app$set_inputs(fileInputSelection = "Example data")
   app$click("loadExampleData")
-  app$expect_values()
+  app$expect_values(screenshot_args = FALSE)
 })