getColSpec <- function (n) {
if (n < 27) return(LETTERS[[n]])
l <- LETTERS
for (i in 1:26) l <- c(l, paste(LETTERS[[i]], LETTERS, sep=""))
if (n < 703) return(l[[n]])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.