inst/doc/cloning.R

In sortable: Drag-and-Drop in 'shiny' Apps with 'SortableJS'

## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(sortable)

## ---- eval=FALSE--------------------------------------------------------------
#  sortable_js(
#    "sort1",
#    options = sortable_options(
#      group = list(
#        pull = "clone",
#        name = "sortGroup1",
#        put = FALSE
#      ),
#      onSort = sortable_js_capture_input("sort_vars")
#    )
#  )

## ---- eval=FALSE--------------------------------------------------------------
#  sortable_js(
#    "sortable_bin",
#    options = sortable_options(
#      group = list(
#        group = "sortGroup1",
#        put = TRUE,
#        pull = TRUE
#      ),
#      onAdd = htmlwidgets::JS("function (evt) { this.el.removeChild(evt.item); }")
#    )
#  )

## ----echo=FALSE, cache=FALSE--------------------------------------------------
knitr::read_chunk(
  system.file("shiny-examples/clone_remove/app.R", package = "sortable")
)

## ----shiny-clone-remove, eval=FALSE-------------------------------------------
#  ## Example shiny app to demonstrate cloning and other sortable_options
#  
#  library(shiny)
#  library(htmlwidgets)
#  library(sortable)
#  library(magrittr)
#  
#  icon_list <- function(x){
#    lapply(
#      x,
#      function(x) {
#        tags$div(
#          icon("arrows-alt-h"),
#          tags$strong(x)
#        )
#      }
#    )
#  }
#  
#  
#  ui <- fluidPage(
#    fluidRow(
#      class = "panel panel-heading",
#      div(
#        class = "panel-heading",
#        h3("Illustration of sortable_options()")
#      ),
#      fluidRow(
#        class = "panel-body",
#        column(
#          width = 4,
#          tags$div(
#            class = "panel panel-default",
#            tags$div(
#              class = "panel-heading",
#              icon("arrow-right"),
#              "Drag from here (items will clone)"
#            ),
#            tags$div(
#              class = "panel-body",
#              id = "sort1",
#              icon_list(c(
#                "A",
#                "B",
#                "C",
#                "D",
#                "E"
#              ))
#            )
#          )
#        ),
#        column(
#          width = 4,
#          # analyse as x
#          tags$div(
#            class = "panel panel-default",
#            tags$div(
#              class = "panel-heading",
#              icon("exchange"),
#              "To here(max 3 items)"
#            ),
#            tags$div(
#              class = "panel-body",
#              id = "sort2"
#            )
#          ),
#          # analyse as y
#          tags$div(
#            class = "panel panel-default",
#            tags$div(
#              class = "panel-heading",
#              icon("exchange"),
#              "Or here"
#            ),
#            tags$div(
#              class = "panel-body",
#              id = "sort3"
#            )
#          )
#  
#        ),
#        column(
#          width = 4,
#          # bin
#          tags$div(
#            class = "panel panel-default",
#            tags$div(
#              class = "panel-heading",
#              icon("trash"),
#              "Remove item"
#            ),
#            tags$div(
#              class = "panel-body",
#              id = "sortable_bin"
#            )
#          )
#  
#        )
#      )
#    ),
#    sortable_js(
#      "sort1",
#      options = sortable_options(
#        group = list(
#        pull = "clone",
#          name = "sortGroup1",
#          put = FALSE
#        ),
#        # swapClass = "sortable-swap-highlight",
#        onSort = sortable_js_capture_input("sort_vars")
#      )
#    ),
#    sortable_js(
#      "sort2",
#      options = sortable_options(
#        group = list(
#          group = "sortGroup1",
#          put = htmlwidgets::JS("function (to) { return to.el.children.length < 3; }"),
#          pull = TRUE
#        ),
#        swapClass = "sortable-swap-highlight",
#        onSort = sortable_js_capture_input("sort_x")
#      )
#    ),
#    sortable_js(
#      "sort3",
#      options = sortable_options(
#        group = list(
#          group = "sortGroup1",
#          put = TRUE,
#          pull = TRUE
#        ),
#        swapClass = "sortable-swap-highlight",
#        onSort = sortable_js_capture_input("sort_y")
#      )
#    ),
#    sortable_js(
#      "sortable_bin",
#      options = sortable_options(
#        group = list(
#          group = "sortGroup1",
#          put = TRUE,
#          pull = TRUE
#        ),
#        onAdd = htmlwidgets::JS("function (evt) { this.el.removeChild(evt.item); }")
#      )
#    )
#  
#  )
#  
#  server <- function(input, output) {
#    output$variables <- renderPrint(input[["sort_vars"]])
#    output$analyse_x <- renderPrint(input[["sort_x"]])
#    output$analyse_y <- renderPrint(input[["sort_y"]])
#  
#  
#    x <- reactive({
#      x <- input$sort_x
#      if (is.character(x)) x %>% trimws()
#    })
#  
#    y <- reactive({
#      input$sort_y %>% trimws()
#    })
#  
#  }
#  shinyApp(ui, server)