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

# Create a select input

getSelectInput <- 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(
		selectInput(inputID, 
								mylabel, 
								inputConf$value)
	)
	
	return(myOutput)
}
Haycen/SQUID documentation built on May 8, 2017, 2:54 p.m.