R/currentEngine.R

In miraisolutions/rTRNG: Advanced and Parallel Random Number Generation via 'TRNG'

#' @keywords internal
getCurrentEngine <- function() {
  engine <- getOption("TRNGengine", default = get(defaultKind())$new())
  setCurrentEngine(engine)
  return(engine)
}

#' @keywords internal
setCurrentEngine <- function(engine) {
  # TODO: check class?
  options(TRNGengine = engine)
}