add safeguard for par (on.exit added), submit to CRAN v0.1.4

DavZim · Apr 24, 2023 · b6f1a8a · b6f1a8a
1 parent 74a6237
commit b6f1a8a
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 10 deletions.
diff --git a/CRAN-SUBMISSION b/CRAN-SUBMISSION
@@ -1,3 +1,3 @@
-Version: 0.1.2
-Date: 2023-04-20 18:02:26 UTC
-SHA: 04177e41d96d427c0ad9357c45fc6e627b75c0da
+Version: 0.1.4
+Date: 2023-04-24 19:55:35 UTC
+SHA: 74a6237e38192093630d08250444bab3ee1207b9
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: dataverifyr
 Type: Package
 Title: A Lightweight, Flexible, and Fast Data Validation Package that Can Handle All Sizes of Data
-Version: 0.1.3
+Version: 0.1.4
 Authors@R: c(
       person(given = "David",
              family = "Zimmermann-Kollenda",

diff --git a/R/visualization.R b/R/visualization.R
@@ -32,6 +32,7 @@ plot_res <- function(res,
   r <- res[rev(seq(n)), ]
 
   op <- par(mai = c(1.5, 2, 1, 1), xpd = TRUE, family = "mono")
+  on.exit(par(op), add = TRUE)
 
   bp <- barplot(
     matrix(c(r$pass / r$tests, r$fail / r$tests), ncol = nrow(r), byrow = TRUE),
@@ -77,8 +78,6 @@ plot_res <- function(res,
                    rep("darkgray", n + 1)) # total
     )
   }
-
-  par(op)
 }
 
 # x <- 99.999999999 to 99.99

diff --git a/cran-comments.md b/cran-comments.md
@@ -1,4 +1 @@
-
-Fixed wrong URL of https://r-datatable.com.
-
-Use single-quotes around software names in the DESCRIPTION file.
+Added safeguard around `par`, added `on.exit()` after call to par to keep userspace clean.