auto-clean up folder that is left behind by test_appendRecords

wadpac · Feb 22, 2024 · 58bf1d9 · 58bf1d9
1 parent a310d7d
commit 58bf1d9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test_appendRecords.R b/tests/testthat/test_appendRecords.R
@@ -165,5 +165,5 @@ test_that("Neighbouring recordings are correctly appended", {
   expect_equal(nrow(M$metashort), 10)
   expect_equal(nrow(M$metalong), 2)
   expect_equal(unique(M$metashort$accmetric), 4)
-  if (file.exists(dn))  unlink(dn, recursive = TRUE)
+  if (dir.exists("./testfolder"))  unlink("./testfolder", recursive = TRUE)
 })