better date dimension

[Tazinho]

> tibble(Datum = seq.Date(from = ymd("2012-01-01"), to = ymd("2012-02-02"), by = 1),
+ Wochentag = as.character(wday(Datum, label = TRUE, abbr = FALSE)),
+ Tag = day(Datum),
+ Monat = as.character(month(Datum, label = TRUE, locale = "german", abbr = FALSE)),
+ Jahr = year(Datum))
# A tibble: 33 x 5
   Datum      Wochentag    Tag Monat   Jahr
   <date>     <chr>      <int> <chr>  <dbl>
 1 2012-01-01 Sonntag        1 Januar  2012
 2 2012-01-02 Montag         2 Januar  2012
 3 2012-01-03 Dienstag       3 Januar  2012
 4 2012-01-04 Mittwoch       4 Januar  2012
 5 2012-01-05 Donnerstag     5 Januar  2012
 6 2012-01-06 Freitag        6 Januar  2012
 7 2012-01-07 Samstag        7 Januar  2012
 8 2012-01-08 Sonntag        8 Januar  2012
 9 2012-01-09 Montag         9 Januar  2012
10 2012-01-10 Dienstag      10 Januar  2012
# ... with 23 more rows