Is there a Shiny input for relative dates?

I´d like to add to my app something like this:

Is there an input ready to use or do I have to program it?

Best regards.