tryTolower <-
function(testo, ifErrorReturnText=FALSE)
{
# tryCatch error
try_error = tryCatch(tolower(testo), error=function(e) e)
# if not an error
if (!inherits(try_error, "error"))
testo = tolower(testo) else testo = NA
testo
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.