inst/shinyApp/ui/header.R

In Mathelab/RaMP-DB: RaMP (Relational Database of Metabolomic Pathways)

header <-shinydashboard::dashboardHeader(title = "RaMP", 
                          titleWidth = 350,
                        shinydashboard::dropdownMenu(type = "messages",
                                                     shinydashboard::messageItem(from = "Author",
                                                   message = p("Query need to take some time if", 
                                                   br(), " number of elements is too high (>10,000)"), 
                                                   icon = icon(" fa-hand-paper-o"), 
                                                   time = date()), 
                                       shinydashboard::messageItem(from = "Author", 
                                                   message = p("Preview of table display maximum 20 items from query"), 
                                                   icon = icon(" fa-hand-paper-o"), 
                                                   time = date())
                                       )
                          )