Сохранение графиков в цикле в приложении Shiny

Question

У меня есть этот код, который создает несколько графиков за цикл в блестящем приложении. Я хочу, чтобы пользователь мог кликать по сюжету.

Есть ли способ превратить это в обычный цикл for (беза наблюденияEvent), сохранить графики, созданные в цикле, а затем заставить пользователя щелкать по выводимым графикам вместо того, чтобы показывать графики внутри цикла?

Например, в R Studio, где все графики, созданные в цикле, отображаются в окне графика, и вы можете нажимать между ними.

library(shiny)
server <- function(input, output, session) {          
  # data
  v <- c(9,8,7,8,9,5,6,7,4,3)
  w <- c(3,4,2,3,3,3,2,3,4,5)
  x <- c(1,3,4,6,2,4,6,8,6,3)
  y <- c(4,5,2,4,2,1,2,5,7,8)
  z <- c(5,9,8,6,4,6,8,9,6,7)
  df <- data.frame(v, w, x, y, z)

  # initial plot that will allow user to change parameters (haven't implemented yet)
  output$plot <- renderPlot(plot(df[[1]],df[[2]]))        

  count<-0   # This is the counter which keeps track on button count

  observeEvent(input$run, {
    count <<- count + 1 # Increment the counter by 1 when button is click
    if(count<6){
      # Draw the plot if count is less than 6
      output$plot <- renderPlot(plot(df[[1]],df[[count]],main = count))
      output$plot <- renderPlot(plot(df[[3]],df[[count]],main = count))
    }
    else{
      # Reset the counter if it is more than 5
      count <- 0
    }             
  })
}

ui <- fluidPage(
  actionButton("run", "Generate"),
  plotOutput("plot")
)

shinyApp(ui = ui, server = server)