diff --git a/NAMESPACE b/NAMESPACE index 52876685..f0e7b40a 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -31,6 +31,7 @@ export(local_png) export(local_postscript) export(local_preserve_seed) export(local_rng_version) +export(local_seed) export(local_svg) export(local_temp_libpaths) export(local_tempdir) diff --git a/R/seed.R b/R/seed.R index 914f8a5e..8d4746b5 100644 --- a/R/seed.R +++ b/R/seed.R @@ -25,6 +25,7 @@ with_seed <- function(seed, code) { } #' @rdname with_seed +#' @export local_seed <- function(seed, .local_envir = parent.frame()) { old_seed <- get_seed() set.seed(seed)