From f4c2d61c6e180d848c37727f803f7174797a564f Mon Sep 17 00:00:00 2001
From: Maarten van Kessel <m.vankessel@mi-erasmusmc.nl>
Date: Tue, 22 Aug 2023 15:41:56 +0200
Subject: [PATCH] Moved defer down

---
 tests/testthat/test-eunomia.R | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/tests/testthat/test-eunomia.R b/tests/testthat/test-eunomia.R
index 4eeb3765..9ebae1c5 100644
--- a/tests/testthat/test-eunomia.R
+++ b/tests/testthat/test-eunomia.R
@@ -19,12 +19,6 @@ test_that("Check installation", {
 
 test_that("Multiple analyses", {
   outputFolder <- tempfile(pattern = "cmData")
-  withr::defer(
-    {
-      unlink(outputFolder, recursive = TRUE)
-    },
-    testthat::teardown_env()
-  )
 
   tcos1 <- createTargetComparatorOutcomes(
     targetId = 1,
@@ -301,6 +295,13 @@ test_that("Multiple analyses", {
       targetComparatorOutcomesList = targetComparatorOutcomesList <- list(tcos1, tcos2, "brokenObject")
     )
   })
+
+  withr::defer(
+    {
+      unlink(outputFolder, recursive = TRUE)
+    },
+    testthat::teardown_env()
+  )
 })