Commit e2854cd6 authored by Midoux Cedric's avatar Midoux Cedric

physeq_data

parent 28cd7b47
...@@ -83,8 +83,9 @@ output$barplot <- metaRender2(renderPlot, { ...@@ -83,8 +83,9 @@ output$barplot <- metaRender2(renderPlot, {
} }
metaExpr({ metaExpr({
physeq_data <- physeq()
p <- plot_composition( p <- plot_composition(
physeq = physeq(), physeq = physeq_data,
taxaRank1 = ..(checkNull(input$barplotFilterRank)), taxaRank1 = ..(checkNull(input$barplotFilterRank)),
taxaSet1 = ..(input$barplotTaxa), taxaSet1 = ..(input$barplotTaxa),
taxaRank2 = ..(input$barplotShowRank), taxaRank2 = ..(input$barplotShowRank),
...@@ -101,6 +102,7 @@ observeEvent(input$barplot_output_code, ...@@ -101,6 +102,7 @@ observeEvent(input$barplot_output_code,
expandChain( expandChain(
quote(library(phyloseq)), quote(library(phyloseq)),
quote(library(phyloseq.extended)), quote(library(phyloseq.extended)),
"# Replace `physeq_data` with you own data.",
output$barplot() 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