sql.conform <- function(string){
string <- tolower(unlist(string)[1])
string <- gsub("[[:punct:]]|[[:space:]]", "_", string)
if ( length(grep("[[:digit:]]", substr(string, 1, 1))) == 1 )
string <- paste("_", string, sep = "")
string
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.