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

@@ -131,6 +131,7 @@ bars_fun <- function(data = data, rank = "Genus", top = 10, Ord1 = NULL, Fact1 =
       layout(xaxis = xform)
   }else{
     #raw abundance
+    plottitle = "Raw abundance"
     p1=plot_ly(meltdat, x = ~sample.id, y = ~value, type = 'bar', name = ~variable, color = ~variable) %>% #, color = ~variable
       layout(title="Raw abundance", yaxis = list(title = 'Raw abundance'), xaxis = xform, barmode = 'stack')