Commit e2854cd6 authored by Midoux Cedric's avatar Midoux Cedric

physeq_data

parent 28cd7b47
......@@ -83,8 +83,9 @@ output$barplot <- metaRender2(renderPlot, {
}
metaExpr({
physeq_data <- physeq()
p <- plot_composition(
physeq = physeq(),
physeq = physeq_data,
taxaRank1 = ..(checkNull(input$barplotFilterRank)),
taxaSet1 = ..(input$barplotTaxa),
taxaRank2 = ..(input$barplotShowRank),
......@@ -101,6 +102,7 @@ observeEvent(input$barplot_output_code,
expandChain(
quote(library(phyloseq)),
quote(library(phyloseq.extended)),
"# Replace `physeq_data` with you own data.",
output$barplot()
)
)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment