# NOT RUN {
# testing the function in standard settings
set.seed(13)
runif(1)
x = getRandomState(123)
runif(1)
x$restoreCurrent()
runif(1)
# values outside set /restore are identical to
set.seed(13)
runif(2)
# if no seed is set, this will also be restored
rm(.Random.seed) # now, there is no random seed
x = getRandomState(123)
exists(".Random.seed") # TRUE
runif(1)
x$restoreCurrent()
exists(".Random.seed") # False
# with seed = false
x = getRandomState(seed = FALSE)
exists(".Random.seed")
runif(1)
x$restoreCurrent()
exists(".Random.seed")
# }
Run the code above in your browser using DataLab