Я хотел бы функцию, которая считает количество конкретных дней в месяц ..

т.е. ноябрь13 -> 5 пятниц .. пока дек13 вернется 4 пятницы ..

Есть ли элегантная функция, которая вернула бы это?

library(lubridate)

num_days