title: In R Shiny how to embed HTML Radio buttons within a Table
body: <p>I'm trying to embed rows of radio buttons within a table in R/Shiny using HTML.  From Shiny HTML examples I can create rows of radio buttons and get the input values (input$a1value, input$a2value) but am unable to read those values when I wrap it in table HTML.  See code below:</p>
  
  <pre><code>ui &lt;- shinyUI(fluidPage(
  
    mainPanel(
        uiOutput("htmltable"),
        textOutput("a1value"),
        textOutput("a2value")
  
    )
  ))
  
  server &lt;- shinyServer(function(input, output) {
  
    output$htmltable &lt;- renderText({
      HTML('
         &lt;table class="data table table-bordered table-condensed"&gt;
         &lt;tr&gt;&lt;td&gt;
  
         &lt;div id="a1" class="form-group shiny-input-radiogroup shiny-input-container"&gt;
         &lt;label class="control-label" for="a1"&gt;Radio button in a table example &lt;/label&gt;
         &lt;div class="shiny-options-group"&gt;
         &lt;div class="radio"&gt; &lt;td&gt;&lt;label&gt;&lt;input type="radio" name="a1" checked="checked" value="1"&gt;&lt;/label&gt;&lt;/td&gt;
         &lt;/div&gt;&lt;div class="radio"&gt; &lt;td&gt;&lt;label&gt;&lt;input type="radio" name="a1" value="2"&gt; &lt;/label&gt;&lt;/td&gt;
         &lt;/div&gt;&lt;div class="radio"&gt; &lt;td&gt;&lt;label&gt;&lt;input type="radio" name="a1" value="3"&gt; &lt;/label&gt;&lt;/td&gt;
         &lt;/div&gt;&lt;div class="radio"&gt; &lt;td&gt;&lt;label&gt;&lt;input type="radio" name="a1" value="4"&gt; &lt;/label&gt;&lt;/td&gt;
         &lt;/div&gt;&lt;div class="radio"&gt; &lt;td&gt;&lt;label&gt;&lt;input type="radio" name="a1" value="5"&gt; &lt;/label&gt;&lt;/td&gt;
         &lt;/div&gt;&lt;/div&gt;&lt;/div&gt;
         &lt;/td&gt;&lt;/tr&gt;
         &lt;tr&gt;&lt;td&gt;
         &lt;div id="a2" class="form-group shiny-input-radiogroup shiny-input-container"&gt;
         &lt;label class="control-label" for="a2"&gt; &lt;/label&gt;
         &lt;div class="shiny-options-group"&gt;
         &lt;div class="radio"&gt; &lt;td&gt;&lt;label&gt;&lt;input type="radio" name="a2" checked="checked" value="1"&gt;&lt;/label&gt;&lt;/td&gt;
         &lt;/div&gt;&lt;div class="radio"&gt; &lt;td&gt;&lt;label&gt;&lt;input type="radio" name="a2" value="2"&gt; &lt;/label&gt;&lt;/td&gt;
         &lt;/div&gt;&lt;div class="radio"&gt; &lt;td&gt;&lt;label&gt;&lt;input type="radio" name="a2" value="3"&gt; &lt;/label&gt;&lt;/td&gt;
         &lt;/div&gt;&lt;div class="radio"&gt; &lt;td&gt;&lt;label&gt;&lt;input type="radio" name="a2" value="4"&gt; &lt;/label&gt;&lt;/td&gt;
         &lt;/div&gt;&lt;div class="radio"&gt; &lt;td&gt;&lt;label&gt;&lt;input type="radio" name="a2" value="5"&gt; &lt;/label&gt;&lt;/td&gt;
         &lt;/div&gt;&lt;/div&gt;&lt;/div&gt;
         &lt;/td&gt;&lt;/tr&gt; &lt;/table&gt;')})
  
      output$a1value &lt;- renderText({input$a1})
      output$a2value &lt;- renderText({input$a2})
  
  })
  
  shinyApp(ui=ui,server=server)
  </code></pre>
  
  <p>I can get a1value and a2value before wrapping the HTML with the table HTML construct but not afterwards.</p>