rownameToFirstColumn <- function(DF,colname){
DF <- as.data.frame(DF)
DF[,colname] <- row.names(DF)
DF <- DF[,c(dim(DF)[2],1:(dim(DF)[2]-1))]
return(DF)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.