Resolved ropensci#45

All zero variables causing error
gshotwell · May 29, 2017 · e0071ea · e0071ea
1 parent 766cab0
commit e0071ea
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/R/stats.R b/R/stats.R
@@ -30,10 +30,12 @@ n_complete <- function(x) {
 
 inline_hist <- function(x) {
   x <- x[!is.na(x)]
-  hist_dt <- table(cut(x, 10))
-  hist_dt <- hist_dt / max(hist_dt)
   out <- 0
-  names(out) <- colformat::spark_bar(hist_dt)
+  if ( !all(x == 0)) {
+    hist_dt <- table(cut(x, 10))
+    hist_dt <- hist_dt / max(hist_dt)
+    names(out) <- colformat::spark_bar(hist_dt)
+  }
   return(out)
 }