From 568da96946d05a2b081666b3f472dab6ae4a82ae Mon Sep 17 00:00:00 2001
From: Tim Taylor <tim.taylor@hiddenelephants.co.uk>
Date: Tue, 12 Mar 2024 21:23:17 +0000
Subject: [PATCH] FIX: preserve state of random number generator

---
 DESCRIPTION | 2 ++
 NEWS.md     | 2 ++
 R/zzz.R     | 2 ++
 3 files changed, 6 insertions(+)

diff --git a/DESCRIPTION b/DESCRIPTION
index 32a1f77..a59293a 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -44,3 +44,5 @@ Collate:
     'wildcards.R'
     'zzz.R'
 Config/Needs/website: r-lib/pkgdown, tidyverse/tidytemplate
+Imports: 
+    withr
diff --git a/NEWS.md b/NEWS.md
index eedeed9..204e033 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,5 +1,7 @@
 ## Rex (development version)
 
+* Rex no longer changes the state of the random number generator when attached.
+
 ## Rex Version 1.2.1 ##
 
 * Kevin Ushey is now the maintainer
diff --git a/R/zzz.R b/R/zzz.R
index ad07e1a..cd768c0 100644
--- a/R/zzz.R
+++ b/R/zzz.R
@@ -1,6 +1,8 @@
 .onAttach <- function(lib, pkg) { # nolint
+  withr::with_preserve_seed({
   if (!interactive() || stats::runif(1) > 0.1) return()
 
   packageStartupMessage("Welcome to rex, the friendly regular expression helper!\n",
                         "Use 'rex_mode()' to toggle code completion for rex shortcuts and functions.")
+  })
 }