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] FALSEleap_year(2009) # FALSE#> [1] FALSEleap_year(2008) # TRUE#> [1] TRUEleap_year(1900) # FALSE#> [1] FALSEleap_year(2000) # TRUE#> [1] TRUE