col.name.change <- function(x, OLD, NEW)
{
dimnames(x)[[2]][match(OLD, dimnames(x)[[2]])] <- NEW
assign(deparse(substitute(x)), x, pos = 1)
invisible()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.