R/maSliderBox.R

In jon11w/maSliders:

#' MA Slider Box
#'
#' This function builds a styled container to house vertical sliders.
#' @param ... Pass multiple maVerticalSlider objects here.
#' @export
#' @examples
#' maSliderBox(maVerticalSlider(id = "slider1", name = "Slider 1"), maVerticalSlider(id = "slider2", name = "Slider 2"))

maSliderBox <- function(...) {
  
  addResourcePath(
    prefix = 'wwwVerticalSlider', 
    directoryPath = system.file('www', package='maSliders')
  )
  
  tagList(
    
    singleton(
      tags$head(tags$link(rel = "stylesheet", type = "text/css", href = "wwwVerticalSlider/sliderStyle.css"))
    ),
    
    tags$div(class = "sliderBox",
             list(...))
    
  )
}