title_case = function(x) gsub(x, pattern="(^|[[:space:]])([[:alpha:]])", replacement="\\1\\U\\2", perl=TRUE)
abspath = function(file)
{
p = path.expand(file)
if (!file.exists(p))
stop("file does not exist")
p
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.