Rでdate-timeクラスオブジェクトからUnixtimeに変換

strptimeなどで生成したdate-timeクラスオブジェクトをUnixtimeに変換するにはdifftime()で1970-01-01 00:00:00からの差分を計算すればよい。

> hoge <- strptime("2014-03-01 00:00:00",format="%Y-%m-%d %H:%M:%S")
> difftime(hoge,strptime("1970-01-01 00:00:00",format="%Y-%m-%d %H:%M:%S"),units="secs")
Time difference of 1393632000 secs

このあまだと数値として扱えないのでas.numeric()につっこむ。

> hoge.ut <- as.numeric(difftime(hoge,strptime("1970-01-01 00:00:00",format="%Y-%m-%d %H:%M:%S"),units="secs"))
> hoge.ut
[1] 1393632000

なんだかもっとスマートな方法がある気がする。