Shiny: Multiple selections created using one htmlOutput

README.md

To run

shiny::runGist("6684134")

server.R

shinyServer(function(input, output, session) {
  output$selectInputs <- renderUI({
		print("w")
		w <- ""
		for(i in 1:input$obs) {
			w <- paste(w,selectInput(paste("a",i,sep=""),paste("a",i,sep=""),choices=1:input$obs,selected=i))
		}
		HTML(w)
		
	})
	
	output$summary <- renderPrint({	
		print("your selections are:")
		
		for(i in 1:input$obs) {
			print(				
				input[[sprintf("a%d",i)]]
				)
		}
	})
	outputOptions(output, 'selectInputs', suspendWhenHidden=FALSE)
})

ui.R

# Experimental Area ui shiny

shinyUI(basicPage(
  verbatimTextOutput("summary"),
	numericInput("obs", "how many selects:", 5,min = 1, max = 100)
	 ,htmlOutput("selectInputs")
)
)