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

In squid: Statistical Quantification of Individual Differences

# create an icon into input label
underConstruction <- function(Title){ 
  
  return(
    span(
      h3(Title),
      p(HTML('<img src="pictures/underConstruction_pic.png" align="middle" alt="Page Under Construction">'))
    )
  )
}