R блестящий: объекты ползунка подкачки с renderUI

Question

У меня есть приложение Shiny, с большим количеством объектов sliderInput. Я хочу, чтобы они были разделены на разные страницы, и при прокрутке страниц значения в sliderInput будут сохранены.

Это пример из моего кода:

shinyApp(
    ui = fluidPage(
    uiOutput("Data.Filter")
  ),
server = function(input, output) {
data<-data.frame(a=c(1,2,3,4,5,6),
                 b=c(1,2,3,4,5,6),
                 c=c(1,2,3,4,5,6),
                 d=c(1,2,3,4,5,6),
                 e=c(1,2,3,4,5,6),
                 f=c(1,2,3,4,5,6),
                 g=c(1,2,3,4,5,6),
                 h=c(1,2,3,4,5,6))
  output$Data.Filter <- renderUI({
  Names<-names(data)
  output_list <- lapply(Names, function(i) {
  filtername <- paste("Data_Filter_", i, sep="")
  Min <- min(data[[i]],na.rm=T)
  Max <- max(data[[i]],na.rm=T)
  return(column(2,sliderInput(filtername, 
  label = i, 
  min = Min, max = Max, value = c(Min,Max),step=1)))
})
   return(fluidRow(do.call(tagList, output_list)))
})
})