re-factor print function

DESCRIPTION

@@ -16,7 +16,8 @@ License: GPL (>= 3)
 Depends: 
     R (>= 2.10)
 Imports: 
-    stringr
+    stringr,
+    withr
 Suggests: 
     covr,
     sf

NAMESPACE

@@ -18,3 +18,4 @@ importFrom(graphics,par)
 importFrom(graphics,rect)
 importFrom(graphics,text)
 importFrom(stringr,str_pad)
+importFrom(withr,with_par)

R/oxfordtheme.R

@@ -13,5 +13,6 @@
 #' @importFrom stringr str_pad
 #' @importFrom grDevices col2rgb rgb colorRampPalette
 #' @importFrom graphics rect par image text
+#' @importFrom withr with_par
 #'
 "_PACKAGE"

R/utils.R

@@ -43,12 +43,17 @@ cmyk2rgb <- function(C, M, Y, K) {
 #'
 print.palette <- function(x, ...) {
   n <- length(x)
-  old <- par(mar = c(0.5, 0.5, 0.5, 0.5))
-  on.exit(par(old))
+  # old <- par(mar = c(0.5, 0.5, 0.5, 0.5))
+  # on.exit(par(old))
 
-  image(1:n, 1, as.matrix(1:n), col = x,
-        ylab = "", xaxt = "n", yaxt = "n", bty = "n")
+  withr::with_par(
+    new = list(mar = c(0.5, 0.5, 0.5, 0.5)),
+    code = {
+      image(1:n, 1, as.matrix(1:n), col = x,
+            ylab = "", xaxt = "n", yaxt = "n", bty = "n")
 
-  rect(0, 0.9, n + 1, 1.1, col = rgb(1, 1, 1, 0.8), border = NA)
-  text((n + 1) / 2, 1, labels = attr(x, "name"), cex = 1, family = "serif")
+      rect(0, 0.9, n + 1, 1.1, col = rgb(1, 1, 1, 0.8), border = NA)
+      text((n + 1) / 2, 1, labels = attr(x, "name"), cex = 1, family = "serif")
+    }
+  )
 }