add testthat setup file to clean up after running tests

japhir · Jun 20, 2023 · 620ce31 · 620ce31
1 parent 5c1296c
commit 620ce31
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/tests/testthat/setup.R b/tests/testthat/setup.R
@@ -0,0 +1,9 @@
+cleanup <- function() {
+  cachedir <- tools::R_user_dir("snvecR", which = "cache")
+  if (dir.exists(cachedir)) {
+    cli::cli_inform("Removing {.file {cachedir}} from reproducible environment.")
+    unlink(cachedir, recursive = TRUE)
+  }
+}
+
+withr::defer(cleanup(), teardown_env())