# HG changeset patch
# User iuc
# Date 1737825116 0
# Node ID 599a3fb9a953ea14dd7f1cea092b45a54f615125
# Parent  b8a4de1a4e1945075e0774ff1f6ca98e9f3da7f7
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/phyloseq commit 53ece29ec3f7e3c2c51d0ff9849e6193863cca71

diff -r b8a4de1a4e19 -r 599a3fb9a953 macros.xml
--- a/macros.xml	Fri Jan 10 14:58:36 2025 +0000
+++ b/macros.xml	Sat Jan 25 17:11:56 2025 +0000
@@ -1,6 +1,6 @@
 <macros>
     <token name="@TOOL_VERSION@">1.50.0</token>
-    <token name="@VERSION_SUFFIX@">0</token>
+    <token name="@VERSION_SUFFIX@">1</token>
     <token name="@PROFILE@">21.01</token>
     <xml name="bio_tools">
         <xrefs>
diff -r b8a4de1a4e19 -r 599a3fb9a953 phyloseq_plot_bar.R
--- a/phyloseq_plot_bar.R	Fri Jan 10 14:58:36 2025 +0000
+++ b/phyloseq_plot_bar.R	Sat Jan 25 17:11:56 2025 +0000
@@ -127,9 +127,11 @@
 
 # Generate bar plot
 if (!is.null(opt$x) && opt$x != "") {
-    p <- plot_bar(physeq, x = opt$x, fill = opt$fill)
+    p <- plot_bar(physeq, x = opt$x, fill = opt$fill) +
+        geom_bar(aes(color = NULL, fill = !!sym(opt$fill)), stat = "identity", position = "stack")
 } else {
-    p <- plot_bar(physeq, fill = opt$fill) # If no x is provided, don't include x
+    p <- plot_bar(physeq, fill = opt$fill) +
+        geom_bar(aes(color = NULL, fill = !!sym(opt$fill)), stat = "identity", position = "stack")
 }
 
 # Only facet if the facet variable is provided and exists in the sample data
@@ -141,6 +143,7 @@
     }
 }
 
+
 # Save to output file
 ggsave(
     filename = opt$output,