R/functions_extra_ui.R

In Coayala/MetaboTandem: Pipeline for the analysis of LC-MS/MS data

headerbox_factory <- function(title, status, content, width = 6){
  box(title = title,
      status = status,
      solidHeader = TRUE,
      collapsible = FALSE,
      closable = FALSE,
      width = width,
      content
      )
}