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

In squid: Statistical Quantification of Individual Differences

# Create numeric input

getNumericInput<- function(inputID, inputConf, errorID, placement="top", trigger="hover") 
{    

  if(inputConf$infoTxt != ""){
    mylabel  <- c(inputConf$label,getIcon(inputConf$infoTxt, placement, trigger))
  }else{
    mylabel <- inputConf$label
  }
	
	myOutput <- span(
		numericInput(inputID,
								 mylabel, 
								 inputConf$value, 
								 min  = inputConf$min, 
								 max  = inputConf$max, 
								 step = inputConf$step),
		uiOutput(errorID)
	)
  
  return(myOutput)
  
}