renderUI2.r

renderUI2.r

library(shiny)##########################################################################
  
ui <- fixedPage(
  h2("Normal example"),
  uiOutput("moreControls"),
  uiOutput("moreControls1"),
  uiOutput("test")
)

server <- function(input, output, session) {
  output$moreControls <- renderUI({
    tagList(
      sliderInput("n", "N", 1, 10, 4),
      numericInput("nlabel1", "Label", 67)
    )
  })
  output$moreControls1 <- renderUI({
    tagList(
      numericInput("nlabel1", "Label", input$n)
    )
  })
  output$test <- renderUI({
    lapply(1:input$n,  function(val) {
      numericInput(paste0("label", val, sep = ""), paste("label", val, sep = " "), val)
    })
  })
}
shinyApp(ui, server)