commit 760b2691ad6ad7c7bc6de3977f74f6fc2c07d6aa
author Hao Zhu <haozhu233@gmail.com> Wed Oct 07 09:45:42 2020 -0400
committer GitHub <noreply@github.com> Wed Oct 07 09:45:42 2020 -0400
tree 57b88cfcb53dfccc265aa800ff8e7f3880f0a505
parent 2c3b4b8fd8e6945084837da5c722e73622760c7f
parent 4bdbdb8439d280bbf0021e5aa037df58a99aa6df

Merge pull request #542 from vincentarelbundock/master

mini plots base::range(na.rm=TRUE)

R/mini_plots.R

diff --git a/R/mini_plots.R b/R/mini_plots.R
index fc07ce5..fc8e031 100644
--- a/R/mini_plots.R
+++ b/R/mini_plots.R
@@ -38,7 +38,7 @@
                       file_type = if (is_latex()) "pdf" else "svg", ...) {
   if (is.list(x)) {
     if (same_lim & is.null(lim)) {
-      lim <- base::range(unlist(x))
+      lim <- base::range(unlist(x), na.rm=TRUE)
     }
 
     dots <- listify_args(x, width, height, res, breaks,
@@ -51,7 +51,7 @@
   if (is.null(x)) return(NULL)
 
   if (is.null(lim)) {
-    lim <- base::range(x)
+    lim <- base::range(x, na.rm=TRUE)
   }
 
   if (!dir.exists(dir)) {
@@ -131,7 +131,7 @@
                          file_type = if (is_latex()) "pdf" else "svg", ...) {
   if (is.list(x)) {
     if (same_lim & is.null(lim)) {
-      lim <- base::range(unlist(x))
+      lim <- base::range(unlist(x), na.rm=TRUE)
     }
 
     dots <- listify_args(x, width, height, res,
@@ -145,7 +145,7 @@
   if (is.null(x)) return(NULL)
 
   if (is.null(lim)) {
-    lim <- base::range(x)
+    lim <- base::range(x, na.rm=TRUE)
     lim[1] <- lim[1] - (lim[2] - lim[1]) / 10
     lim[2] <- (lim[2] - lim[1]) / 10 + lim[2]
   }