Me gustaría establecer un conjunto de fechas para la década más cercana, por ejemplo:

1922 --> 1920,  
2099 --> 2090,  

etc.

Esperaba poder hacer esto en Lubridate, como en:

floor_date(1922, 'decade')

Pero me sale:

Error in match.arg(unit) : 
  'arg' should be one of “second”, “minute”, “hour”, “day”, “week”, “month”, “year”

¿Hay alguna manera de hacer esto con gracia, tal vez evitando un montón de declaraciones if-else para hacer el binning, y con suerte evitando un montón decuts para hacer la agrupación?