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.
library(tidyverse) library(DT) diamonds[1:5000,] %>% datatable(options = list(pageLength = 50, dom = 'tp'))