diff --git a/panels/barplot-server.R b/panels/barplot-server.R
index cf09c428eeaea40fb83282cb1dec3169b22cc976..c704370534785e491dd4487cc81b41807f664230 100644
--- a/panels/barplot-server.R
+++ b/panels/barplot-server.R
@@ -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()
                  )
                )