Merge pull request #1 from MLopez-Ibanez/MLopez-Ibanez-patch-237

Call par() with no.readonly=TRUE to avoid warning (#237)
r-lib · Dec 15, 2023 · 3a73da9 · 3a73da9
2 parents 0c5254e + c56ae90
commit 3a73da9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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) {