title: r shiny table not rendering html
body: <p>I'm creating a table using renderTable but the HTML inside the table is not rendering:</p>
  
  <p><img src="https://i.stack.imgur.com/ocawW.png" alt="table not rendering"></p>
  
  <p>This is the code snipit of interest:</p>
  
  <pre><code>if (is.null(Compare_Count) || is.na(Compare_Count) || length(Compare_Count) == 0L ) {
            CT_Table[i, 3] &lt;- HTML("&lt;i class='icon-arrow-up'&gt;&lt;/i&gt;")
          } else if (CT_Table[i, 2] &gt; Compare_Count) {
            CT_Table[i, 3] &lt;- print(tags$i(class='icon-arrow-up', style="text-color: green"), quote = FALSE)
  }
  </code></pre>
  
  <p>Neither <code>HTML</code>, <code>paste</code>, or <code>c</code> work. </p>
  
  <p>How can I get the arrows to show? </p>
  
  <p>Thanks!</p>
  
  <hr>
  
  <p><code>server.r</code>: [Note, this is an example. The code is not complete, brackets may be mismatched, etc. Not important to the question.]</p>
  
  <pre><code>output$example &lt;- renderTable(include.rownames=FALSE,{
   CT_Table &lt;- count(Canidates,vars=c("Name"))
   CT_Table &lt;- CT_Table[order(CT_Table["Recent Reviews: "], decreasing=T),]
      for (i in 1:nrow(CT_Table)) {
        Compare_Name &lt;- paste(CT_Table$Product[i])
        Compare_Count &lt;- Can_trend[Can_trend$Name == Compare_Name, 2]
          if (is.null(Compare_Count) || is.na(Compare_Count) || length(Compare_Count) == 0L ) 
  {
            CT_Table[i, 3] &lt;- HTML("&lt;i class='icon-arrow-up'&gt;&lt;/i&gt;")
          } else if (CT_Table[i, 2] &gt; Compare_Count) {
            CT_Table[i, 3] &lt;- tags$i(class='icon-arrow-up', style="text-color: green")
          } else if (CT_Table[i, 2] &lt; Compare_Count) {
            CT_Table[i, 3] &lt;- tags$i(class='icon-arrow-down', style="text-color: red")
          } else if (CT_Table[i, 2] == Compare_Count) {
            CT_Table[i, 3] &lt;- tags$i(class='icon-minus', style="text-color: yellow")
          }
       }
    }
   CT_Table
  })
  </code></pre>
  
  <p><code>ui.r</code> is just a simple call to <code>tableOutput</code> or <code>htmlOutput</code>, but neither renders the html pasted into the column.</p>