R/set_julia_seed.R

In s3alfisc/JuliaConnectoR.utils: Utility Functions for the JuliaConnectoR

set_julia_seed <- function(rng){

  #' Set a global seed in the current Julia session
  #' @param rng An integer that controls the random number generation
  #' @export

  JuliaConnectoR::juliaEval('using Random')
  rng_char <- paste0("Random.MersenneTwister(", rng, ")")
  JuliaConnectoR::juliaEval(rng_char)

}