Announce snapshot files when visual testing isn't enabled so they won't get deleted

Author: cpsievert

tests/testthat/helper-vdiffr.R

@@ -11,20 +11,21 @@ imageServer <- if (visual_testing) {
 
 
 expect_doppelganger <- function(p, name, ...) {
+  testthat::local_edition(3)
+  
+  name <- str_standardise(name)
+  file <- paste0(name, ".svg")
+  path <- tempfile(file, fileext = ".svg")
+  testthat::announce_snapshot_file(path, name = file)
 
   if (!visual_testing) {
     return(invisible(NULL))
   }
 
-  testthat::local_edition(3)
-  
   # some plots have random characteristics, so make sure we always have the same seed,
   # otherwise comparing svg produces false positives
   set.seed(555)
 
-  name <- str_standardise(name)
-  file <- paste0(name, ".svg")
-  path <- tempfile(file, fileext = ".svg")
   write_plotly_svg(p, path)
   testthat::expect_snapshot_file(path = path, name = file, cran = FALSE)
 }