is.int <- function(x)
{
if (is.numeric(x))
{
if (x-as.integer(x) == 0)
return( TRUE )
else
return( FALSE )
}
else
return( FALSE )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.