R/zzz.R

In dqrng: Fast Pseudo Random Number Generators

.onLoad <- function(libname, pkgname) {
  if (getOption("dqrng.register_methods", FALSE))
    register_methods()
  else {
    if (!exists(".Random.seed", mode="numeric", envir=globalenv()))
      set.seed(NULL)
    original_seed <- get(".Random.seed", mode="numeric", envir=globalenv())
    on.exit(assign(".Random.seed", original_seed, envir=globalenv()))
    dqset_seed(seed = NULL, stream = NULL)
  }
}

.onUnload <- function(libpath) {
  if (getOption("dqrng.register_methods", FALSE))
    restore_methods()
}