If x is a recognized date-time object, leap_year will return whether x
occurs during a leap year. If x is a number, leap_year returns whether it
would be a leap year under the Gregorian calendar.

leap_year(date)

## Arguments

date |
a date-time object or a year |

## Value

TRUE if x is a leap year, FALSE otherwise

## Examples

x <- as.Date("2009-08-02")
leap_year(x) # FALSE

#> [1] FALSE

leap_year(2009) # FALSE

#> [1] FALSE

leap_year(2008) # TRUE

#> [1] TRUE

leap_year(1900) # FALSE

#> [1] FALSE

leap_year(2000) # TRUE

#> [1] TRUE