R/arrowButtonGroupInput.R

In yusuzech/shinyEx: Extend Shiny Modules and Inputs

#' Create arrow buttons
#' 
#' @param inputId id in UI for this input
#' @param type default to "h", valid values are "h" fo horizontal, "v" for 
#' vertical and "a" for four directions
#' 
#' @details 
#' 
#' Since shiny won't react to static input, the values for each arrowButton returns
#' the selected direction with the following format:
#' 1. left:1, left:2, ....
#' 2. right:1, right:2, ....
#' 3. up:1, up:2, ....
#' 4. down:1, down:2, ....
#' 
#' @export
arrowButtonGroupInput <- function(inputId,
                                  type = "h"){
    shiny::addResourcePath(
        prefix = "www",
        directoryPath = system.file("www/arrowButtonGroupInput",package = "shinyEx")
    )
    
    button_groups <- list(
        h = "<span direction='left' value='-1,0' class='arrow-button'>&#9664</span>
             <span direction='right' value='+1,0' class='arrow-button'>&#9654</span>",
        v = "    
                <div>
                    <span direction='up' value='0,+1' class='arrow-button'>&#9650</span>
                </div>
                <div>
                    <span direction='down' value='0,-1' class='arrow-button'>&#9660</span>
                </div>",
        a = "
            <div>
                <span style='opacity:0'>&#9664</span>
                <span direction='up' value='0,+1' class='arrow-button'>&#9650</span>
                <span style='opacity:0'>&#9654</span>
            </div>
            <div>
                <span direction='left' value='-1,0' class='arrow-button'>&#9664</span>
                <span style='opacity:0;'>&#9664</span>
                <span direction='right' value='+1,0' class='arrow-button'>&#9654</span>
            </div>
            <div>
                <span style='opacity:0'>&#9664</span>
                <span direction='down' value='0,-1' class='arrow-button'>&#9660</span>
                <span style='opacity:0'>&#9654</span>
            </div>"
    )
    
    
    # return taglist
    tagList(
        singleton(
            tags$head(
                # production
                tags$link(rel = 'stylesheet',href="/www/arrowButtonGroupInput.css"),
                tags$script(src = "/www/arrowButtonGroupInput.js")
            )
        ),
        tags$div(
            id = inputId,
            style='line-height:110%',
            class='arrow-button-group',
            type = type,
            shiny::HTML(button_groups[[type]])
        )
    )
}