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

@@ -164,7 +164,6 @@ bars_fun <- function(data = data, rank = "Genus", top = 10, Ord1 = NULL, Fact1 =
     for (i in 2:length(unique(meltdat[, Fact1]))) {
       p1$x$layoutAttrs[[1]][[paste0("xaxis", i)]] = NULL
       p1$x$layoutAttrs[[1]][[paste0("xaxis", i)]]$title <- paste0(Fact1,
-                                                                  unique(meltdat[, Fact1])[i])
     }
     return(p1)
   }