fix system.filte call

Boehringer-Ingelheim · Sep 18, 2024 · 64b1706 · 64b1706
1 parent 5abcd77
commit 64b1706
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/scripts/test_qc_pkg.R b/scripts/test_qc_pkg.R
@@ -53,7 +53,7 @@ archive_folder <- file.path(root, "snaps_archive")
 if (!dir.exists(archive_folder)) dir.create(archive_folder)
 
 if (!success[["test"]]) {
-  snap_folder <- system.file("tests/testthat/_snaps")
+  snap_folder <- system.file("tests/testthat/_snaps", package = pkg_name, mustWork = TRUE)
   file.copy(snap_folder, archive_folder, recursive = TRUE)
 }