Create html table from dataframe

functions_html_table.R

html.data.frame <- function(table,id="records") {
	df <- data.frame(table)
	for(i in 1:ncol(df)) {
		df[,i] <- as.character(df[,i])
		df[,i] <- gsub("&", "&amp;", df[,i])
		df[,i] <- gsub("<", "&lt;", df[,i])
		df[,i] <- gsub(">", "&gt", df[,i])
	}
	html <- paste0('<table id="',id,'">')
	html <- paste0(html,"<thead><tr><td>",paste(names(df),collapse = "</td><td>"),"</td></tr></thead><tbody>")
	html <- paste0(html,paste(unlist(apply(df,1,function(x) {
		return(paste0("<tr><td>",paste(x,collapse = "</td><td>"),"</td></tr>"))
	})),collapse = " "))
	html <- paste0(html,"</tbody></table>")
	return(paste(html,collpase=""))
}