Isolate code execution in seperate environment in R (particularly calls to set seed)

isolate-set-seed.R

# Isolate execution of set.seed (or anything else) in own env
s1 <- .GlobalEnv$.Random.seed

draw <- function(){
  eval({
    set.seed(12)
    samples = runif(10)   
  }, envir = new.env())
  
  samples
}

samples1 <- draw()
set.seed(42)
samples2 <- draw()

s2 <- .GlobalEnv$.Random.seed

# TRUE
print(all(s1 == s2))
# TRUE
print(all(samples1 == samples2))