Demo - Dynamic Widgets

app.R

library(shiny)

ui <- basicPage(
  fluidRow(
    selectInput("num", "select number of slider inputs", choices = seq(1,5,1)),
    uiOutput("sliders"),
    tableOutput("table"),
    tableOutput("sum")
))

server <- function(input, output){
  
 
  
  output$sliders <- renderUI({
    lapply(1:input$num, function(i) {
      sliderInput(inputId = paste0("ind", i), label = paste("Individual", i),
                  min = 0, max = 5, value = 1)
    })
  })
  
  output$table <- renderTable({
    num <- as.integer(input$num)
    
    data.frame(lapply(1:num, function(i) {
      input[[paste0("ind", i)]]
    }))
  })
  
  output$sum <- renderTable({
    num <- as.integer(input$num)
    
    dat <- data.frame(lapply(1:num, function(i) {
      input[[paste0("ind", i)]]
    }))
    
    sum(dat)
    
  })
  
  
  
  
}

shinyApp(ui, server)