first_cap <- purrr::compose(function(x) gsub("(^|[[:space:]]|-)([[:alpha:]])", "\\1\\U\\2", x, perl=TRUE), function(x) tolower(x))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.