Me gustaría una función que cuenta la cantidad de días específicos por mes ..

es decir, noviembre '13 -> 5 viernes .. mientras que Dec'13 devolvería 4 viernes ...

¿Hay una función elegante que devolvería esto?

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())

¿Cuál sería una mejor manera de hacer esto?