Create HTML Table Character String from R Dataframe or Table

I ended up creating this piece of code while working on the sift package. I couldn’t find a simple function to convert tables and dataframes to an HTML table. This does the job at rending the HTML table server side which is a lot faster than having it rendered client side from JSON.