allow plotting if all values are zero #13

TomKellyGenetics · Mar 26, 2021 · de9cd3b · de9cd3b
1 parent 0cf7120
commit de9cd3b
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/R/vioplot.R b/R/vioplot.R
@@ -279,6 +279,13 @@ vioplot.default <-
         names <- names(datas)
       }
     }
+    datas <- lapply(datas, function(x){
+      if(all(x == 0) & length(x) > 100){
+        0
+      } else {
+        x
+      }
+    })
     if(is.character(log)) if("y" %in% unlist(strsplit(log, ""))) log <- TRUE
     if(is.na(xlog) | (horizontal == TRUE & (log == FALSE | log == ""))) xlog <- FALSE
     log <- ifelse(log == TRUE, "y", "")