inst/shinydemos/selectable_save_load.R

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

library(shiny)
library(shinyjqui)

ui <- fluidPage(
  actionButton('save', "Save"),
  actionButton("load", "Load"),
  selectableTableOutput("tbl", selection_mode = "cell"),
  verbatimTextOutput("selected")
)

server <- function(input, output) {
  output$selected <- renderPrint({
    cat("Selected:\n")
    input$tbl_selected
  })
  output$tbl <- renderTable(head(mtcars), rownames = TRUE)
  observeEvent(input$save, {
    jqui_selectable("#tbl", operation = "save")
  })

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

shinyApp(ui, server)