R/05_Get-Dropdown-Menu.R

In easy-plot/ggQuickPlotR:

dropdownActionMenu <- function (..., id="menu",title=NULL, icon = NULL, .list = NULL, header=NULL) {
  items <- c(list(...), .list)
  lapply(items, shinydashboard:::tagAssert, type = "li")
  type <- "notifications" # TODO créer action + CSS
  dropdownClass <- paste0("dropdown ", type, "-menu")
  tags$li(id=id,class = dropdownClass, a(href = "#", class = "dropdown-toggle",
                                         `data-toggle` = "dropdown", icon, title), tags$ul(class = "dropdown-menu",
                                                                                           if(!is.null(header)) tags$li(class="header",header),
                                                                                           tags$li(tags$ul(class = "menu", items))))
}

actionItem = function (inputId, text, icon = NULL, tabSelect=FALSE,onclick_event=NULL) {
  if(!is.null(icon)) {
    shinydashboard:::tagAssert(icon, type = "i")
    icon <- tagAppendAttributes(icon, class = paste0("text-", "success"))
  }
  if(tabSelect) {
    tags$li(a(onclick=paste0("shinyjs.tabSelect('",inputId,"')"),icon,text))
  } else {
    tags$li(actionLink(inputId,text,icon))
  }
  if(!is.null(onclick_event)){
    tags$li(a(onclick=paste0(onclick_event),icon,text))
  } else {
    tags$li(actionLink(inputId,text,icon))
  }
  
}