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

facet_grid(space = "free")

parent b65391e7
......@@ -79,7 +79,7 @@ output$barplot <- metaRender2(renderPlot, {
barplotGrid <- if (!is.null(checkNull(input$barplotGrid))) {
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, {
heatmapGrid <- if (!is.null(checkNull(input$heatmapGrid))) {
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, {
rarefactionGrid <- if (!is.null(checkNull(input$rarefactionGrid))) {
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