inst/shinydemos/sortable_save_load.R

In Yang-Tang/shinyjqui: 'jQuery UI' Interactions and Effects for Shiny

library(shiny)
library(shinyjqui)


ui <- fluidPage(
  verbatimTextOutput("order"),
  actionButton('save', "Save"),
  actionButton("load", "Load"),
  sortableTableOutput("tbl")
)

server <- function(input, output) {
  output$order <- renderPrint({
    cat("Rows order:\n")
    input$tbl_order
  })
  output$tbl <- renderTable(head(mtcars), rownames = TRUE)

  observeEvent(input$save, {
    jqui_sortable("#tbl", operation = "save")
  })

  observeEvent(input$load, {
    jqui_sortable("#tbl", operation = "load")
  })
}

shinyApp(ui, server)