Chciałbym funkcję, która zlicza liczbę określonych dni w miesiącu.

to znaczy ... listopad '13 -> 5 piątki .. podczas gdy Dec'13 zwróci 4 piątki ..

Czy istnieje elegancka funkcja, która by to zwróciła?

library(lubridate)

num_days <- function(date){
x <- as.Date(date)  
start = floor_date(x, "month")
count = days_in_month(x)

d = wday(start) 
sol = ifelse(d > 4, 5, 4) #estimate that is the first day of the month is after Thu or Fri then the week will have 5 Fridays
sol
}

num_days("2013-08-01")
num_days(today())

Jaki byłby lepszy sposób, aby to zrobić?