R Shiny Dynamic Input

by

See a working example below

library(shiny)

ui <- shinyUI(fluidPage(
  titlePanel("Old Faithful Geyser Data"),

  sidebarLayout(
    sidebarPanel(
      numericInput("numInputs", "How many inputs do you want", 4),
      # place to hold dynamic inputs
      uiOutput("inputGroup")
    ),
    # this is just a demo to show the input values
    mainPanel(textOutput("inputValues"))
  )
))

# Define server logic required to draw a histogram
server <- shinyServer(function(input, output) {
  # observe changes in "numInputs", and create corresponding number of inputs
  observeEvent(input$numInputs, {
    output$inputGroup = renderUI({
      input_list <- lapply(1:input$numInputs, function(i) {
        # for each dynamically generated input, give a different name
        inputName <- paste("input", i, sep = "")
        numericInput(inputName, inputName, 1)
      })
      do.call(tagList, input_list)
    })
  })

  # this is just a demo to display all the input values
  output$inputValues <- renderText({
    paste(lapply(1:input$numInputs, function(i) {
      inputName <- paste("input", i, sep = "")
      input[[inputName]]
    }))
  })

})

# Run the application
shinyApp(ui = ui, server = server)

More Related Contents:

  1. Embedding Image in Shiny App
  2. R Shiny – add tabPanel to tabsetPanel dynamically (with the use of renderUI)
  3. Create dynamic number of input elements with R/Shiny
  4. R Shiny key input binding
  5. Dynamically creating tabs with plots in shiny without re-creating existing tabs
  6. How do you pass parameters to a shiny app via URL
  7. How can I insert an image into the navbar on a shiny navbarPage()
  8. R Shiny REST API communication
  9. displaying a pdf from a local drive in shiny
  10. Shiny slider on logarithmic scale
  11. Accept HTTP Request in R shiny application
  12. render dropdown for single column in DT shiny
  13. Outputting multiple lines of text with renderText() in R shiny
  14. How to color sliderbar (sliderInput)?
  15. Collect All user inputs throughout the Shiny App
  16. Issue involving map generation in shiny
  17. Deploying R shiny app as a standalone application [closed]
  18. Output a good-looking matrix using renderTable()
  19. How to listen for more than one event expression within a Shiny observeEvent
  20. Downloading png from Shiny (R)
  21. Shiny renderUI selectInput returned NULL
  22. activate tabpanel from another tabpanel
  23. Shiny Dashboard – display a dedicated “loading..” page until initial loading of the data is done
  24. dynamically adjust height and/or width of shiny-plotly output based on window size
  25. Add data to ggvis tooltip that’s contained in the input dataset but not directly in the vis
  26. displaying TRUE when shiny files are split into different folders
  27. R shiny sliderInput with restricted range
  28. Display HTML file in Shiny App
  29. Possible to show console messages (written with `message`) in a shiny ui?
  30. Image not showing in Shiny app R

Leave a Comment