inst/shiny-squid/source/inputs/get_slider_input.R

In squid: Statistical Quantification of Individual Differences

# Create a slider input 

getSliderInput<- function(inputID, inputConf, placement="top", trigger="hover") 
{    
  
  if(inputConf$infoTxt != ""){
    mylabel  <- c(inputConf$label,getIcon(inputConf$infoTxt, placement, trigger))
  }else{
    mylabel <- inputConf$label
  }
	
	myOutput <-  span(
		sliderInput(inputID,
								mylabel, 
								value = inputConf$value, 
								min   = inputConf$min, 
								max   = inputConf$max, 
								step  = inputConf$step,
								width = "500px",
								post = ""
		)
	)
  
  return(myOutput)
}