Nothing
tidyName <- function(x, fixes = c('_', '.', ' ', '-', '>'), case = c('lower', 'upper', 'nochange')) {
x = switch(case[1], lower = tolower(x), upper = toupper(x), nochange = x)
for(i in fixes) x <- (gsub(i, "", x, fixed = T))
x
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.