fixcolnames <-
function(x,lowercase=FALSE) {
## replaces one or more of non alpha-numeric characters to _
## also lowercases the character string
f <- ifelse(lowercase, tolower, identity)
gsub("^_|_$","",f(gsub("[^A-Za-z0-9]+","_",as.character(x))))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.