Extremely basic bootstrap tagsinput wrapper in shiny

shiny-bootstrap-tagsinput.R

# http://bootstrap-tagsinput.github.io/bootstrap-tagsinput/examples/

library(shiny)

tagsinput <- function(tag) {
  tag$children[[2]] <- tagAppendAttributes(tag$children[[2]],
                                           `data-role` = "tagsinput")
  tag
}

ui <- fluidPage(
  tags$head(
    tags$script(src = "//rawgit.com/bootstrap-tagsinput/bootstrap-tagsinput/master/dist/bootstrap-tagsinput.min.js"),
    tags$link(href = "//rawgit.com/bootstrap-tagsinput/bootstrap-tagsinput/master/dist/bootstrap-tagsinput.css", rel="stylesheet")
  ),
  tagsinput(
    textInput("text", "Text", "one, two, three")
  )
)

server <- function(input,output) {
}

shinyApp(ui,server)