R/chooser.R

In jlwaddell/soloDrafting: More About What It Does (one line, title case)

#' Lots of parameters that are hopefully obvious
#' @param inputId 
#' @param leftLabel 
#' @param rightLabel 
#' @param leftChoices 
#' @param rightChoices 
#' @param size 
#' @param multiple 
#' @returnType 
#' @return 
#' 
#' @author Garrett G
#' @export
chooserInput <- function(inputId, leftLabel, rightLabel, leftChoices, rightChoices,
		size = 5, multiple = FALSE) {
	
	addResourcePath(
			prefix='chooserInput', 
			directoryPath=system.file('chooserInput', 
					package='cubeShiny'))
	
	leftChoices <- lapply(leftChoices, tags$option)
	rightChoices <- lapply(rightChoices, tags$option)
	
	if (multiple)
		multiple <- "multiple"
	else
		multiple <- NULL
	
	tagList(
			singleton(tags$head(
							tags$script(src="chooser-binding.js"),
							tags$style(type="text/css",
									HTML(".chooser-container { display: inline-block; }")
							)
					)),
			div(id=inputId, class="chooser",
					div(class="chooser-container chooser-left-container",
							tags$select(class="left", size=size, multiple=multiple, leftChoices)
					),
					div(class="chooser-container chooser-center-container",
							icon("arrow-circle-o-right", "right-arrow fa-3x"),
							tags$br(),
							icon("arrow-circle-o-left", "left-arrow fa-3x")
					),
					div(class="chooser-container chooser-right-container",
							tags$select(class="right", size=size, multiple=multiple, rightChoices)
					)
			)
	)
}

registerInputHandler("shinyjsexamples.chooser", function(data, ...) {
			if (is.null(data))
				NULL
			else
				list(left=as.character(data$left), right=as.character(data$right))
		}, force = TRUE)