# HG changeset patch
# User moheydarian
# Date 1489363454 14400
# Node ID 90be6d1315a49d14e028d3f524e3098feb5f5e4b
# Parent  a5969083902ca1c30172cb1de8dbcbb7fa28af4b
Uploaded

diff -r a5969083902c -r 90be6d1315a4 ggplotscripthistogram.R
--- a/ggplotscripthistogram.R	Sun Mar 12 20:01:02 2017 -0400
+++ b/ggplotscripthistogram.R	Sun Mar 12 20:04:14 2017 -0400
@@ -58,7 +58,12 @@
 integrated <- read.csv(options$input,sep='\t',header=TRUE)
 input <- melt(integrated)
 
-gg_legend = show.legend=options$legend
+#Show/hide legend
+if(options$legend == "TRUE"){
+    gg_legend = NULL
+} else {options$legend == "FALSE"
+    gg_legend = theme(legend.position="none")
+}
 
 #Choose between automatically scaled x and y axis or user defined
 if(options$scaling == "Automatic"){