Узнать количество дней в месяце в R

У меня есть дата в P

 date = as.Date("2011-02-23", "%Y-%m-%d")

Можно ли узнать количество дней в месяце этой конкретной даты? (По поводу високосных). В PHP это будет выглядеть примерно так ( http://www.php.net/manual/en/function.date.php ):

days = format(date, "%t")

, но "% t", похоже, имеет другое значение в R. Есть ли решение этой проблемы?