Merge pull request rstudio#920 from yihui/yihui/selectize-dragdrop

fixes rstudio#902: add jQueryUI dependency when the drag_drop plugin is used in selectize

Author: yihui

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: shiny
 Type: Package
 Title: Web Application Framework for R
-Version: 0.12.2
+Version: 0.12.2.9000
 Date: 2015-08-04
 Authors@R: c(
     person("Winston", "Chang", role = c("aut", "cre"), email = "[email protected]"),

NEWS

@@ -1,3 +1,8 @@
+shiny 0.12.2.9000
+--------------------------------------------------------------------------------
+
+* Fixed #902: the `drag_drop` plugin of the selectize input did not work.
+
 shiny 0.12.2
 --------------------------------------------------------------------------------
 

R/input-select.R

@@ -152,6 +152,13 @@ selectizeIt <- function(inputId, select, options, nonempty = FALSE) {
     ))
   )
 
+  if ('drag_drop' %in% options$plugins) {
+    selectizeDep <- list(selectizeDep, htmlDependency(
+      'jqueryui', '1.10.4', c(href = 'shared/jqueryui/1.10.4'),
+      script = 'jquery-ui.min.js'
+    ))
+  }
+
   # Insert script on same level as <select> tag
   select$children[[2]] <- tagAppendChild(
     select$children[[2]],