# HG changeset patch
# User iuc
# Date 1546175038 18000
# Node ID d1d39c72b755eddc4779ebef9a1a2f6ac10c6f98
# Parent  7b7303fa20e3087c9a06b7a49b15de02181643a5
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit cc2f721e801b6e113a8813982cc3c2c31ae83e89

diff -r 7b7303fa20e3 -r d1d39c72b755 volcanoplot.R
--- a/volcanoplot.R	Sat Dec 29 13:21:24 2018 -0500
+++ b/volcanoplot.R	Sun Dec 30 08:03:58 2018 -0500
@@ -52,11 +52,11 @@
     tolabel <- filter(results, labels %in% labelfile[, 1])
 } else if (is.null(opt$top_num)) {
     # label all significant genes
-    tolabel <- filter(results, fdr<opt$signif_thresh)
+    tolabel <- filter(results, sig != label_notsig)
 } else if (opt$top_num > 0) {
     # label only top significant genes
-    tolabel <- filter(results, fdr<opt$signif_thresh) %>% 
-    top_n(n=opt$top_num, Pvalue)
+    tolabel <- filter(results, sig != label_notsig) %>%
+    top_n(n=-opt$top_num, Pvalue)
 } else if (opt$top_num == 0) {
     # no labels
     tolabel <- NULL