commit a73cf4ac100860a1ee5991896ef2404cab654d82
author Hao Zhu <haozhu233@gmail.com> Wed Oct 07 16:26:41 2020 -0400
committer Hao Zhu <haozhu233@gmail.com> Wed Oct 07 16:26:41 2020 -0400
tree 546b9015fc2005911c3836667e78154aa648d3c5
parent d4f54983e477a2c7c653cc8e65f5d1ee9eb77594
parent 760b2691ad6ad7c7bc6de3977f74f6fc2c07d6aa

Merge branch 'master' of github.com:haozhu233/kableExtra

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]
   }