R/select2.R

In metagraf/sparkle: What the package does (short line)

#' Select2 Input
#' 
#' ...
#' 
#' @param inputId input id
#' @param ... see selectInput()
#' @param options select 2 options
#' @export
select2Input <- function(inputId, ..., options = list(width = "200px")) {
    
    suppressMessages(singleton(addResourcePath("sparkle", system.file("js", package = "sparkle"))))
    
    tagList(
        singleton(
            tags$head(
                tags$script(
                    src = "sparkle/select2/select2.js",
                    type= "text/javascript"
                )
            )
        ),
        singleton(
            tags$head(
                tags$link(
                    rel = "stylesheet",
                    type = "text/css",
                    href = "sparkle/select2/select2.css"
                )
            )
        ),
        selectInput(
            inputId = inputId,
            ...
        ),
        tags$script(
            sprintf(
                "$(document).ready(function() { $('#%s').select2(%s);});",
                inputId,
                to_json(options)
            )
        )
    )
}