# Save and restore

#### Yang Tang

#### 2018-07-25

This vignette introduce the save and restore feature of mouse-interactions in `shinyjqui` package.

## What can be save and restored?

The mouse intearctions provide ways to manipulate the state of shiny html elements (listed below) through clicking or dragging.

Interactions | State
--- | ---
draggable | The position of the draggable element
resizable | The dimension of the resizable element
selectable | The selected items inside the selectable element
sortable | The order of items inside the sortable element

These interaction states can be saved and restored in the following two ways.

## Save and restore within a shiny session (client-side)

This is the case when users want to temporarily save the current interaction state (e.g., position of element) and restore it after certion mouse operations without closing the shiny app or reloading the page. The `save` and `load` opertations from the corresponding interaction functions can serve the purpose:

    ui <- fluidPage(
      actionButton("save", "Save position"),
      actionButton("restore", "Restore position"),
      # create a draggable textInput
      jqui_draggable(textInput("foo", "Textinput"))
    )

    server <- function(input, output) {
      # on save button clicked, save the current postion of the textInput
      observeEvent(input$save, {
        jqui_draggable("#foo", operation = "save")
      })
      # on restore button clicked, move the textInput back to the last saved position
      observeEvent(input$restore, {
        jqui_draggable("#foo", operation = "load")
      })
    }

    shinyApp(ui, server)

This method also applies to interaction shortcuts like `orderInput()`, `selectableTableOutput()` and `sortableTabsetPanel()`. For example,

    ui <- fluidPage(
      actionButton("save", "Save order"),
      actionButton("restore", "Restore order"),
      orderInput("foo1", label = NULL, items = 1:3, connect = "foo2"),
      orderInput("foo2", label = NULL, items = NULL, placeholder = "empty")
    )

    server <- function(input, output) {
      observeEvent(input$save, {
        jqui_sortable("#foo1,#foo2", operation = "save")
      })
      observeEvent(input$restore, {
        jqui_sortable("#foo1,#foo2", operation = "load")
      })
    }

    shinyApp(ui, server)

## Save and restore cross shiny sessions (shiny bookmarking)

In addition to the client-side mode, cross-session save/retore is also supported, which takes advantage of shiny bookmarking. In this case, users can save the interaction state alone with other shiny input values either by URL-encoding or by save-to-server, and restore them in a different shiny session. All the operations are the same as the native shiny bookmarking except adding a `jqui_bookmarking()` call in server like this:

    ui <- function(request) {
      fluidPage(
        bookmarkButton(),
        jqui_resizable(plotOutput('gg', width = '200px', height = '200px'))
      )
    }

    server <- function(input, output) {
      output$gg <- renderPlot({
        ggplot(mtcars, aes(x = cyl, y = mpg)) + geom_point()
      })
      # enable interaction state bookmarking
      jqui_bookmarking()
    }

    enableBookmarking(store = "url")

    shinyApp(ui, server)