stateSave.R

## Generate unique id for this table
tab_id <- paste0("mytab_", session$token)


output$table <- DT::renderDT({

  ## Enable stateSave and configure callbacks to save and restore state 
  ## to/from sessionStorage
  options <- list(
    stateSave = TRUE, 
    stateSaveCallback = DT::JS(paste0("function(settings, data) {
        sessionStorage.setItem('", tab_id, "', JSON.stringify(data));
      }")),
    stateLoadCallback = DT::JS(paste0("function(settings, callback) {
        return JSON.parse(sessionStorage.getItem('", tab_id, "'));
      }"))
  )
  
  ## Generate dataTable with options
  DT::datatable(df(), options = options)
  
})