Quiero construir una aplicación R shiny que tenga una entrada dinámica que solicite al usuario una entrada numérica y luego, en base a esa entrada, genere 4 campos de entrada más. Esto es lo que tengo en 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(

  )
)))

Sé que el código anterior no funciona, pero es mi razón de ser. Sé que Shiny tiene declaraciones condicionales, pero parece que no puedo encontrar una que me permita generar un número predeterminado de campos adicionales. ¿Es esto posible?