fix seed for cran 2

Author: jakob-r

tests/testthat.R

@@ -5,6 +5,5 @@ library(testthat)
 if (identical(Sys.getenv("TRAVIS"), "true") || identical(Sys.getenv("R_EXPENSIVE_TEST_OK"), "true")) {
   test_check("mlrMBO")
 } else {
-  set.seed(1)
   test_check("mlrMBO", filter = "((mbo_rf)|(mbo_km))")
 }

tests/testthat/helper_zzz.R

@@ -1,14 +1,14 @@
 # We want to run on cran with a fixed seed (1) so that tests will not fail stochastically
 # For local testing + Travis we want to detect and be able reproduce these so we sample a seed
-if (!is.na(Sys.getenv("NOT_CRAN", unset = NA))) {
-  set.seed(1)
-} else {
-  seed.val = sample(1:10, size = 1)
+if (identical(Sys.getenv("TRAVIS"), "true") || identical(Sys.getenv("R_EXPENSIVE_TEST_OK"), "true")) {
+  seed.val = sample(1:100, size = 1)
   set.seed(seed.val)
   # Only on Travis logs we want to see the used seed
   if (identical(Sys.getenv("TRAVIS"), "true")) {
     catf("Run test with seed: %i", seed.val)
   }
+} else {
+  set.seed(1)
 }
 
 configureMlr(show.learner.output = FALSE)