I do like Ehler's supersmoother. It's supposed to be used in conjunction with his high pass filter (he calls the whole thing the roofing filter), but I've never gotten it to to work. The R code is below, but no matter what time series I add it to it, I only get zeros.
roofingFilter <-...