I don't get the Javascript error when I run your app. Note that I'm using the latest development version of Shiny.
As for why the choice value isn't updating for you, it's because this is what you're using to update the value:
observe({
selected.choice <<- input$select
})
And then you access `selected.choice` from various renderUI functions, like this:
output$text.main.outA1 = renderPrint({
cat("This is A, with selection ",input$A, " and selected choice: ",selected.choice)
})
When input$select changes, it won't invalidate that renderPrint() -- it will only invalidate the observer.
If you want changes in input$select to cause the renderPrint() to re-execute, you need to do one of the following:
* Access input$select directly in renderPrint().
* Use a reactive expression, like this:
selected_choice <- reactive( input$select )
and then access selected_choice() from your renderPrint().
* Use a reactiveValues object and assign a value into it, in the observe(). Then access it in the renderPrint().
-Winston