inst/shiny-squid/source/utilities/getIcon.R

# create an icon into input label
getIcon <- function(title="", placement="top", trigger="hover"){ 
  return(
  	tagList(HTML(paste0("<i class = 'fa fa-info-circle fa-fw info' 
  								  data-toggle='tooltip'
  									title='",title,"'
  									data-placement='",placement,"'
  									trigger='",trigger,"'></i>")))
  ) 
}
Haycen/SQUID documentation built on May 8, 2017, 2:54 p.m.