> dformat <- label_date_short()
> # dates
> jan1 <- as.Date("2010-01-01")
> dformat(seq(jan1, length = 8, by = "7 day"))
[1] "01\nJan\n2010" "08"            "15"            "22"           
[5] "29"            "05\nFeb"       "12"            "19"           

> dformat(seq(jan1, length = 8, by = "3 month"))
[1] "Jan\n2010" "Apr"       "Jul"       "Oct"       "Jan\n2011" "Apr"      
[7] "Jul"       "Oct"      

> dformat(seq(jan1, length = 8, by = "1 year"))
[1] "2010" "2011" "2012" "2013" "2014" "2015" "2016" "2017"

> # date-times
> jan1 <- as.POSIXct("2010-01-01", tz = "UTC")
> dformat(seq(jan1, length = 6, by = "3 hours"))
[1] "00:00\n01\nJan\n2010" "03:00"                "06:00"               
[4] "09:00"                "12:00"                "15:00"               

> dformat(seq(jan1, length = 6, by = "7 day"))
[1] "01\nJan\n2010" "08"            "15"            "22"           
[5] "29"            "05\nFeb"      

> dformat(seq(jan1, length = 6, by = "3 month"))
[1] "Jan\n2010" "Apr"       "Jul"       "Oct"       "Jan\n2011" "Apr"      

> dformat(seq(jan1, length = 6, by = "1 year"))
[1] "2010" "2011" "2012" "2013" "2014" "2015"

