From ad3a3837f3650bb75278088a1d56d4da947b3d58 Mon Sep 17 00:00:00 2001
From: Hugo Gruson <10783929+Bisaloo@users.noreply.github.com>
Date: Thu, 5 Dec 2024 11:56:05 +0100
Subject: [PATCH] Cite source for auto set graphical params

---
 tests/testthat/helper-state.R | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tests/testthat/helper-state.R b/tests/testthat/helper-state.R
index 5311562..513ecdb 100644
--- a/tests/testthat/helper-state.R
+++ b/tests/testthat/helper-state.R
@@ -7,10 +7,11 @@
 # `globalCallingHandlers()` did not exist before.
 get_pars_toreset <- function() {
   pars <- par(no.readonly = TRUE)
-  # The following params are set and modified automatically by plot() and we:
+  # The following params are set and modified automatically by plot(), as
+  # documented in ?plot.window() and we:
   # 1. have no control over them
   # 2. do not care about resetting them
-  pars <- pars[!names(pars) %in% c("usr", "xaxp")]
+  pars <- pars[!names(pars) %in% c("usr", "xaxp", "yaxp")]
 }
 
 if (getRversion() >= "4.0.0") {