R Entrada dinâmica brilhante

Quero criar um aplicativo R brilhante que tenha uma entrada dinâmica que solicite ao usuário uma entrada numérica e, com base nessa entrada, gere mais 4 campos de entrada. Aqui está o que eu tenho em mente.

library(shiny)

# Define UI for random distribution application 
shinyUI(fluidPage(

  # Application title
  titlePanel("Calcs"),

  # Sidebar with controls to select the random distribution type
  # and number of observations to generate. Note the use of the
  # br() element to introduce extra vertical spacing
  sidebarLayout(
    sidebarPanel(
     numericInput("dorr", "How many inputs do you want",4),
     i = i+1
     while(input$dorr<i){
      numericInput("S", "Number of simulations to run:", 10)
      i=i+1
     }
     numericInput("S", "Number of simulations to run:", 10),
     actionButton(inputId = "submit_loc",label = "Run the Simulation")
     ),


     mainPanel(

  )
)))

Eu sei que o código acima não funciona, mas é o meu raciocínio. Eu sei que o Shiny possui instruções condicionais, mas não consigo encontrar uma que permita gerar um número pré-especificado de campos adicionais. Isso é possível?