Commit 79834835 authored by Midoux Cedric's avatar Midoux Cedric

physeq_data -> data

parent 00d7d137
......@@ -75,6 +75,7 @@ output$barplotUI <- renderUI({
output$barplot <- metaRender2(renderPlot, {
validate(need(physeq(), "Requires an abundance dataset"),
need(input$barplotShowRank, ""))
data <- physeq()
barplotGrid <- if (!is.null(checkNull(input$barplotGrid))) {
metaExpr({
......@@ -83,9 +84,8 @@ output$barplot <- metaRender2(renderPlot, {
}
metaExpr({
physeq_data <- physeq()
p <- plot_composition(
physeq = physeq_data,
physeq = data,
taxaRank1 = ..(checkNull(input$barplotFilterRank)),
taxaSet1 = ..(input$barplotTaxa),
taxaRank2 = ..(input$barplotShowRank),
......@@ -102,7 +102,7 @@ observeEvent(input$barplot_output_code,
expandChain(
quote(library(phyloseq)),
quote(library(phyloseq.extended)),
"# Replace `physeq_data` with you own data.",
"# Replace `data` with you own data.",
output$barplot()
)
)
......
......@@ -59,6 +59,7 @@ output$heatmapUI <- renderUI({
output$heatmap <- metaRender2(renderPlot, {
validate(need(physeq(), "Requires an abundance dataset"))
data <- physeq()
heatmapGrid <- if (!is.null(checkNull(input$heatmapGrid))) {
metaExpr({
......@@ -67,10 +68,9 @@ output$heatmap <- metaRender2(renderPlot, {
}
metaExpr({
physeq_data <- physeq()
physeq_select <- prune_taxa(names(sort(taxa_sums(physeq_data), decreasing = TRUE)[1:..(input$heatmapTopOtu)]), physeq_data)
data_select <- prune_taxa(names(sort(taxa_sums(data), decreasing = TRUE)[1:..(input$heatmapTopOtu)]), data)
p <- plot_heatmap(
physeq = physeq_select,
physeq = data_select,
distance = ..(input$heatmapDist),
method = ..(input$heatmapMethod),
title = ..(checkNull(input$heatmapTitle)),
......@@ -89,7 +89,7 @@ observeEvent(input$heatmap_output_code,
expandChain(
quote(library(phyloseq)),
quote(library(phyloseq.extended)),
"# Replace `physeq_data` with you own data.",
"# Replace `data` with you own data.",
output$heatmap()
)
)
......
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