fmt2width <- function(fmt){
width = gsub('%-*','',fmt)
width = gsub('[a-z].*','',width)
width = as.numeric(gsub('\\..*','',width))
width = width + nchar(fmt) - nchar(gsub(' ','',fmt))
return(width)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.