facet_grid(space = "free")

panels/barplot-server.R

@@ -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")
     })
   }
   

panels/heatmap-server.R

@@ -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")
     })
   }
   

panels/rarefactionCurve-server.R

@@ -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)))
     })
   }