setClass("NumWithComma")
setAs("character", "NumWithComma", function(from)
as.numeric(gsub("[,$% ]", "", from)))
setClass("OraDate")
setAs("Date", "OraDate", function(from)
as.Date(x, "%d-%b-%y"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.