add an argument to bars_fun to split graph as facet_wrap

a new argument in bars_fun() named split to separate compositional barplot like facet_wrap

R/bars_fun.R

@@ -157,7 +157,7 @@ bars_fun <- function(data = data, rank = "Genus", top = 10, Ord1 = NULL, Fact1 =
                        keep = TRUE)  %>%
       subplot(nrows = 1, shareX = TRUE, shareY=TRUE, titleX = FALSE) %>%
       layout(title=plottitle,
-                   layout(title=plottitle, xaxis = list(title = glue("{Fact1} = {unique(meltdat[, Fact1])[1]}")),
+             xaxis = list(title = glue("{Fact1} = {unique(meltdat[, Fact1])[1]}")),
              yaxis = list(title = 'Relative abundance'),
              barmode = 'stack')