check.width <- function(number,width){
nwwd = width
while(nchar(as.character(number))>width){
nwwd = nwwd - 1
number = signif(number,digits = nwwd)
}
return(nwwd)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.