From c56ae90a832a36279ab7d0d6ea29b7f8e8aa25cb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Manuel=20L=C3=B3pez-Ib=C3=A1=C3=B1ez?=
 <2620021+MLopez-Ibanez@users.noreply.github.com>
Date: Fri, 15 Dec 2023 12:13:59 +0000
Subject: [PATCH] Call par() with no.readonly=TRUE to avoid warning (#237)

---
 R/par.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/par.R b/R/par.R
index 122eb2f1..fea2677d 100644
--- a/R/par.R
+++ b/R/par.R
@@ -5,7 +5,7 @@ NULL
 
 get_par <- function(...) {
   new <- auto_splice(list(...))
-  out <- do.call(graphics::par, as.list(names(new)))
+  out <- do.call(graphics::par, c(as.list(names(new), list(no.readonly=TRUE))))
 
   # `par()` doesn't wrap in a list if input is length 1
   if (length(new) == 1) {