remove withr calls

BorchLab · Nov 4, 2024 · 7b4214a · 7b4214a
1 parent 6f7c771
commit 7b4214a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/tests/testthat/test-clonalCluster.R b/tests/testthat/test-clonalCluster.R
@@ -11,8 +11,7 @@ test_that("clonalCluster works", {
 
   test_obj <- getTestCombinedSeuratObj()
   combined <- getCombined()
-  withr::local_seed(42)
-
+  set.seed(42)
   expect_equal(
     clonalCluster(combined[[1]], 
                   chain = "TRB", 

diff --git a/tests/testthat/test-getContigDoublets.R b/tests/testthat/test-getContigDoublets.R
@@ -17,7 +17,7 @@ getTestBcrListNoDoublets <- function() {
 }
 
 getTestBcrListWithDoublets <- function(doubletsPerSample, seed = 42) {
-    if (!is.null(seed)) withr::local_seed(seed)
+    if (!is.null(seed)) set.seed(seed)
     purrr:::map2(
         getTestBcrListNoDoublets(), getTestTcrList(),
         makeRandomBcrBarcodesMatchTcr,