Nothing
# TRUE if leap year, FALSE otherwise
leapyear <- function(y) {
res <- .C("Cleapyear",year=as.integer(y),ly=integer(1))
if(res$ly==1) { return(TRUE)}
else { return(FALSE)}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.