Change RNGkind back to default (had caused test case errors).

openpharma · Sep 15, 2023 · 6c6fd66 · 6c6fd66
1 parent 7a13770
commit 6c6fd66
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/tests/testthat/test-Design-methods.R b/tests/testthat/test-Design-methods.R
@@ -15,6 +15,8 @@ test_that("set_seed returns correct value if seed is a value", {
   rng_state <- set_seed(seed)
   attr(seed_int, "kind") <- list("Super-Duper", "Inversion", "Rejection")
   expect_equal(rng_state, seed_int)
+
+  RNGkind("default")
 })
 
 test_that("set_seed returns correct value if seed is NULL", {
@@ -27,6 +29,8 @@ test_that("set_seed returns correct value if seed is NULL", {
   RNGkind("Super-Duper")
   rng_state <- set_seed(seed)
   expect_equal(rng_state, .Random.seed)
+
+  RNGkind("default")
 })
 
 ## get_result_list ----