R Shiny: Selective outputs assingment inside IF statements

I have a shiny app that calls a script which iterates producing a figure in each iteration. I need to show each plot and tried using recordPlot to save each plot to a list and call every element individually but the objects are not recognized later by the app. Then I also tried to include the different outputs in IF statements but my algorithm only produces the last plot for all outputs, it is like the IF statements are being ignored and I don't know howto deal whit it. Here is a simplification of my code:

library(shiny)
ui <- fluidPage(
  # Main panel for displaying outputs ----
    mainPanel(
      actionButton("exec", "Start!!"),
      tagList(tags$h4("First iteration:")),
              plotOutput('PlotIter1'),
              tags$hr(),
              tagList(tags$h4("Second iteration:")),
              plotOutput('PlotIter2'),
              tags$hr(),
              tagList(tags$h4("Third iteration:")),
              plotOutput('PlotIter3'),
              tags$hr())
  )

server <- function(input, output) {
  ii <- 1
observeEvent(input$exec,{ 

  continue <- TRUE
  while(continue==TRUE){
    if(ii == 1){
      output$PlotIter1<-renderPlot({
        plot(rep(ii,50),main=ii)
      })
    }
    if(ii == 2){
      output$PlotIter2<-renderPlot({
        plot(rep(ii,50),main=ii)
      })
    }
    if(ii == 3){
      output$PlotIter3<-renderPlot({
        plot(rep(ii,50),main=ii)
      })
    }
    ii <- ii+1
    if(ii == 4){continue <- FALSE}
  }
  })
}

shinyApp(ui, server)