# A more sensible version of signif
signifish <- function(x, digits=3)
ifelse(x < 10^digits, signif(x, digits=digits), round(x))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.