##' Print object.size
##'
##' @export
size <- function(x, unit = "auto")
{
if(class(x) == "character")
{
x <- eval(as.name(x))
}
print(object.size(x), unit = unit)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.