# From http://stackoverflow.com/a/3937820
check_integer <- function(n){
!length(grep("[^[:digit:]]", format(n, scientific = FALSE)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.