powered by
leap.year(date)
aliases leap.year leap_year leapyear
x <- as.Date("2009-08-02") leap.year(x) # FALSE leap.year(2009) # FALSE leap.year(2008) # TRUE leap.year(1900) # FALSE leap.year(2000) # TRUE}
Run the code above in your browser using DataLab