inst/shinydemos/sortable_bookmarking.R

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

library(shiny)
library(shinyjqui)


ui <- function(request) {fluidPage(
  verbatimTextOutput("order"),
  bookmarkButton(),
  sortableTableOutput("tbl")
)}

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

  jqui_bookmarking()
}

enableBookmarking(store = "url")
shinyApp(ui, server)