Add on.exit() to restore par() after plotting

openpharma · Jul 10, 2024 · 3017139 · 3017139
1 parent 97f0372
commit 3017139
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/R/plot.initial_graph.R b/R/plot.initial_graph.R
@@ -130,6 +130,9 @@ plot.initial_graph <- function(x,
                                eps = NULL,
                                background_color = "white",
                                margins = c(0, 0, 0, 0)) {
+  oldpar <- par("bg", "mar")
+  on.exit(suppressWarnings(par(oldpar)))
+
   if (length(v_palette) != 2) {
     stop("Choose 2 palette colors or use `vertex.color` for more customization")
   }

diff --git a/tests/testthat/Rplots.pdf b/tests/testthat/Rplots.pdf