This function allows you to capitalize the first letter of a string and returns all other characters as lower case.
1 2 3
string <- 'AAA' firstup(string)  Aaa
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.