Вы можете добавить столбец с именем orderColumn, где вы сэкономите время, когда
Long refrenceTime = "large future time";
Long currentTime = "currentTime";
Long order = refrenceTime - currentTime;
теперь сохраняете длинный порядок в столбце с именем orderColumn и когда вы извлекаете данные в качестве orderBy (orderColumn) вы получите то, что вам нужно.
У меня была такая же проблема, как и у вас, в конце я просто сохранил входные данные в виде файла .RData, который я загрузил до всего остального в коде Сервера.
# load packages
library(shiny)
load("loaddata.RData")
server <- function(input, output) {
....