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

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(

  )
)))

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