How to figure third Friday of a month in R

Question

I\'m trying to figure out of how to create a vector of dates of third Fridays of a month for the past 3 years

Thank you in Advance

Answer 1

To round it off, here's a messy way to do it with base functions:

d <- seq(as.Date("2000/1/1"), by = 1, length.out = 500)
sort(as.Date(tapply(d[which(format(d, '%a')=='Fri')], 
                    format(d[which(format(d, '%a')=='Fri')], '%m-%Y'),
                    function(x) x[3]), origin='1970-01-01'))