Selectize Plugins in Shiny

app.R

library(htmltools)

addUIDep <- function(x) {
  jqueryUIDep <- htmlDependency("jqueryui", "1.10.4", c(href="shared/jqueryui/1.10.4"),
                                script = "jquery-ui.min.js",
                                stylesheet = "jquery-ui.min.css")
  
  attachDependencies(x, c(htmlDependencies(x), list(jqueryUIDep)))
}

shinyApp(
  ui = fluidPage(
    addUIDep(selectizeInput("variables", "", letters, c("a","b","c"), TRUE, 
                            options = list(plugins = list("drag_drop", "remove_button")))),
    textOutput("variables")
  ), 
  server = function(input, output) {
    output$variables <- renderText(input$variables)
  }
)

Super helpful! Thanks!

The current shiny (perhaps even since 1.2.0) seems to be shipped with everything already included, so that all you should need is:

library(shiny)
library(htmltools)

shinyApp(
  ui = fluidPage(
    selectizeInput("variables", "", letters, c("a","b","c"), TRUE, 
                   options = list(plugins = list("drag_drop", "remove_button"))),
    textOutput("variables")
  ), 
  server = function(input, output) {
    output$variables <- renderText(input$variables)
  }
)

(No more need to inject the HTML dependencies. Nice!)