is_leapyear <- function(year){
#http://en.wikipedia.org/wiki/Leap_year
return(((year %% 4 == 0) & (year %% 100 != 0)) | (year %% 400 == 0))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.