vnijs

library(shiny)
library(DT)

dat <- mtcars

shinyServer(function(input, output, session) {
	output$ui_view_vars <- renderUI({
	  vars <- colnames(dat)

	  ## using selectizeInput with drag_drop and DT