inst/shinydemos/orderInput_bookmarking.R

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

library(shiny)
library(shinyjqui)

server <- function(input, output) {

  output$lst_order <- renderPrint({
    cat('List1: ')
    cat(input$lst1)
    cat('\n')

    cat('List2: ')
    cat(input$lst2)
    cat('\n')

    cat('List3: ')
    cat(input$lst3)
    cat('\n')

    cat('List4: ')
    cat(input$lst4)
    cat('\n')
  })

  jqui_bookmarking()

}

ui <- function(resquest) {fluidPage(

  bookmarkButton(),

  orderInput('lst1', 'List1', items = month.abb, item_class = 'info'),
  orderInput('lst2', 'List2 (can be moved to List1 and List4)', items = month.abb,
             connect = c('lst1', 'lst4'), item_class = 'primary'),
  orderInput('lst3', 'List3 (can be copied to List2 and List4)', items = month.abb,
             as_source = TRUE, connect = c('lst2', 'lst4'), item_class = 'success'),
  orderInput('lst4', 'List4 (can be moved to List2)', items = NULL, connect = 'lst2',
             placeholder = 'Drag items here...'),

  verbatimTextOutput('lst_order')

)}

enableBookmarking(store = "url")

shinyApp(ui, server)