Нащупывает или нет grid_plot при загрузке файла в Shiny

Question

У меня есть plot_grid (2 базовых графика и 4 ggplots), я могу видеть его без проблем, когда использую renderPlot в Shiny Похоже, что , но когда я пытаюсь загрузить grid_plot, у меня есть база графики в 2 страницы, а остальные 4 на одной странице Voila . Поэтому я хочу, чтобы все сюжеты были разделены или на одной странице вместе.

output$downloadPlot.PCA <- downloadHandler(

            filename = function() {
              paste(Sys.Date(), "_", input$myCohort.PCA, "_Plot-PCA_", input$myZone.PCA, "_", input$myMarker.PCA, "-", input$myDiscret.PCA, ".", input$downloadPlot.PCA.format, sep = "")
            },
            content = function(file.PCA) {
             if (input$downloadPlot.PCA.format == "pdf"){
               pdf(file = file.PCA)
               grid.draw(PCA.plot.func())
               } else if (input$downloadPlot.PCA.format == "jpeg"){
                 jpeg(filename = file.PCA)
                 grid.draw(PCA.plot.func())
                 } else {
                   png(filename = file.PCA)
                   grid.draw(PCA.plot.func())
                 }
              dev.off()
            })