Commit 88e023e0 authored by Midoux Cedric's avatar Midoux Cedric

facet_grid(space = "free")

parent b65391e7
...@@ -79,7 +79,7 @@ output$barplot <- metaRender2(renderPlot, { ...@@ -79,7 +79,7 @@ output$barplot <- metaRender2(renderPlot, {
barplotGrid <- if (!is.null(checkNull(input$barplotGrid))) { barplotGrid <- if (!is.null(checkNull(input$barplotGrid))) {
metaExpr({ metaExpr({
facet_grid(..(paste(".", "~", input$barplotGrid)), scales = "free_x") facet_grid(..(paste(".", "~", input$barplotGrid)), scales = "free_x", space = "free")
}) })
} }
......
...@@ -63,7 +63,7 @@ output$heatmap <- metaRender2(renderPlot, { ...@@ -63,7 +63,7 @@ output$heatmap <- metaRender2(renderPlot, {
heatmapGrid <- if (!is.null(checkNull(input$heatmapGrid))) { heatmapGrid <- if (!is.null(checkNull(input$heatmapGrid))) {
metaExpr({ metaExpr({
facet_grid(..(paste(".", "~", input$heatmapGrid)), scales = "free_x") facet_grid(..(paste(".", "~", input$heatmapGrid)), scales = "free_x", space = "free")
}) })
} }
......
...@@ -38,7 +38,7 @@ output$rarefactionCurve <- metaRender2(renderPlot, { ...@@ -38,7 +38,7 @@ output$rarefactionCurve <- metaRender2(renderPlot, {
rarefactionGrid <- if (!is.null(checkNull(input$rarefactionGrid))) { rarefactionGrid <- if (!is.null(checkNull(input$rarefactionGrid))) {
metaExpr({ metaExpr({
facet_grid(..(paste(".", "~", input$rarefactionGrid)), scales = "free_x") facet_grid(..(paste(".", "~", input$rarefactionGrid)))
}) })
} }
......
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