R/tagsTextInput.R

In ThinkRstat/tagsinput: Bootstrap Tags input for Shiny

#' @importFrom htmltools htmlDependency
#' @importFrom utils packageVersion
#' @noRd
tagsInputDependencies <- function(){
  version <- as.character( packageVersion("tagsinput")[[1]] )
  src <- system.file( "js", package = "tagsinput" )
  dep <- htmlDependency(
    name = "tagsinput",
    version = version,
    src = src,
    script = "bootstrap-tagsinput.js",
    stylesheet = "bootstrap-tagsinput.css"
    )
  list( dep )
}


#' text input specific to tags
#'
#' @param ... see \code{\link[shiny]{textInput}}
#'
#' @importFrom shiny textInput
#' @importFrom htmltools tagAppendAttributes
#' @export
#'
#' @examples
#' \dontrun{
#'   library(shiny)
#'   ui <- fluidPage(
#'     tagsTextInput("fruits", "Fruits", "apple, banana"),
#'     textOutput("out")
#'   )
#'
#'   server <- function(input, output){
#'     output$out <- renderPrint( strsplit( input$fruits, ",")[[1]] )
#'   }
#'
#'   shinyApp( ui, server )
#'
#' }
tagsTextInput <- function(...) {
  res <- textInput(...)
  res$children[[2]] <- tagAppendAttributes( res$children[[2]], `data-role` = "tagsinput" )
  attr(res, "html_dependencies") <- tagsInputDependencies()
  res
}