powered by
date_trans()
years <- seq(as.Date("1910/1/1"), as.Date("1999/1/1"), "years") t <- date_trans() t$trans(years) t$inv(t$trans(years)) t$format(t$breaks(range(years)))
Run the code above in your browser using DataLab