R/currentEngine.R

Defines functions setCurrentEngine getCurrentEngine

#' @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)
}
miraisolutions/rTRNG documentation built on June 15, 2025, 10:50 a.m.