Select Page in DT pagination

I have a Shiny App with a few tables from the DT package that are quite big. The pagination feature gives the options for 1-5, then an ellipsis, then the total number of pages. I'd like to give the user the ability to select a page manually. For example, a text box where a user could type "26" and be taken to the 26th page.

Here is some example code and a screenshot, but I'm not sure the best way to render a reprex that gives html output. My apologies if I'm not doing this the right way.

  diamonds[1:5000,] %>% 
    datatable(options = list(pageLength = 50, dom = 'tp'))