R 将ggplot对象列表循环到模式窗口中

在我的shinydashboard中，我希望我的模式窗口显示49个ggplots，它们都存储在列表temp1中。我可以在模式窗口中显示任何绘图，如下所示：

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

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

observeEvent（输入$modalTrigger1，
{
temp1考虑
gridExtra:：grid。排列
以组合多个绘图，您甚至可以指定nrow和ncol。请参阅

库（gridExtra）
...
observeEvent（输入$modalTrigger1，
{
temp1您真的希望在一个模式窗口中有49个绘图？还是49个单独的模式窗口？两者似乎都太多了。
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
  })

})