ggplotオブジェクトのリストをモーダルウィンドウにループする

Question

私のshinydashboardでは、モーダルウィンドウに49個のggplotsを表示したいと思います。それらはすべてtemp1というリストに格納されています。

observeEvent(input$modalTrigger1, 
    { 
    temp1 <- plotList(data) 
    showModal(modalDialog(plotOutput("trigger1plot1"))) 

    output$trigger1plot1 <- renderPlot(temp1[[1]]) 
    } 
) 

しかし、私はmodalTrigger1（アクションボタン）が押されたとき、その出力はモーダルウィンドウ内のすべての49個のプロットだろうforループを作成したい：私は、モーダルウィンドウがそうのようなプロットのいずれかを表示するために取得することができます。これまでの私の試みは失敗したので、私は助けに感謝します。

ありがとうございました。

Answer 1

は、あなたもnrowとのNcoIを指定することができ、複数のプロットを組み合わせることgridExtra::grid.arrangeを考えてみましょう。 CRAN-R docsを参照してください。

library(gridExtra) 
... 

observeEvent(input$modalTrigger1, 
{ 
    temp1 <- plotList(data) 
    showModal(modalDialog(plotOutput("trigger1plot1"))) 

    output$trigger1plot1 <- renderPlot({ 
     do.call(grid.arrange, temp1 
     # grid.arrange(grobs = temp1) -- ALTERNATIVE W/ gridExtra v>=2.0.0 

     # do.call(grid.arrange, c(temp1, ncol=7, nrow=7)) -- WITH ROWS/COLS 
    }) 

})