add on.exit command to avoid changing the user's par settings

alxsrobert · Mar 21, 2024 · 228f5da · 228f5da
1 parent ee5f54f
commit 228f5da
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/plot_importation.R b/R/plot_importation.R
@@ -6,6 +6,8 @@
 #' @importFrom graphics legend
 #' @importFrom graphics par
 plot_importations <- function(influences_vect, threshold, config){
+  oldpar <- par(no.readonly = TRUE)
+  on.exit(par(oldpar))
   par(mfrow = c(1,1), mar = c(5, 5, 1, 1), bty = "l")
   plot(sort(influences_vect), type = "l", xlab = "Connection", lwd = 2,
        ylab = "Likelihood of connection",