title: Render tags string returned by function
body: <p>I have a function that builds an HTML table and returns the code as a string. I'm calling this function from within renderUI and outputting as HTML but the HTML is not getting parsed, I only get string as plain text in output. Do I need to add anything to my function call? </p>
  
  <pre><code>ui &lt;- fluidPage(
  
      fluidRow(
          column(width=3),
          column(width=6, htmlOutput('table')),
          column(width=3)
      )
  )
  </code></pre>
  
  <pre><code>server &lt;- function(input, output) {
  
  tables &lt;- data.frame(c("exmpl1", "exmpl2"), c("abc", "def"))
  
          output$table &lt;- renderUI({
              create.table(tables)
          })
  }
  </code></pre>
  
  <pre><code>create.table = function(tables) {
    rowCount &lt;- c(1:nrow(tables))
    htmlTbl &lt;-
      paste(
        "tags$table(
               tags$tr(
                 tags$th('Col1'),
                 tags$th('Col2'),
                 tags$th('Col3')
               ),"
      )
    for (val in rowCount) {
      htmlTbl &lt;- paste(htmlTbl,"tags$tr(
        tags$td(checkboxInput('check",val,"', NULL)),
        tags$td(tables[",val,", 1]),
        tags$td(tables[",val,", 2]))"
      )
  
    if (val != length(rowCount))
        htmlTbl &lt;- paste(htmlTbl,",")
    }
  
    htmlTbl &lt;- paste(htmlTbl,")")
  
    return(htmlTbl)
  }
  </code></pre>