Supressiong geom_ warnings again

bartongroup · Jun 19, 2019 · 7bab1b0 · 7bab1b0
1 parent cbb2c7f
commit 7bab1b0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/func.R b/R/func.R
@@ -1716,7 +1716,7 @@ plotFID <- function(pdat, pair=NULL, bins=80, marginal.histograms=FALSE,
 plotPdist <- function(res, bin.size=0.02, text.size=12, plot.grid=TRUE) {
   ggplot(res, aes_(~P.Value, ~..density..)) +
     {if(plot.grid) simple_theme_grid else simple_theme} +
-    geom_histogram(breaks=seq(0, 1, bin.size), colour='blue') +
+    geom_histogram(breaks=seq(0, 1, bin.size), colour='blue', na.rm=TRUE) +
     labs(x='P-value', y='Density') +
     theme(text = element_text(size=text.size))
 }