TotKb <- function ()
{
require(gdata)
Sum <- sum(ll()$KB)
print(format(Sum, big.mark = ","), q = F)
invisible(Sum)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.