Add expandHeader func to add left menu of header (in-progress)

DESCRIPTION

@@ -20,7 +20,7 @@ Description: This is a package to collect essential modules and useful functions
 License: MIT + file LICENSE
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.1.2
+RoxygenNote: 7.2.1
 Imports:
     shiny,
     shinydashboard,

NAMESPACE

@@ -4,6 +4,7 @@ export(arrowButton)
 export(dcaFooter)
 export(dca_waiter)
 export(drop_empty)
+export(expandHeader)
 export(get_tab_names)
 export(insert_attr_box)
 export(mediaButton)

R/expand_header.R

@@ -0,0 +1,31 @@
+#' Expand dashboardheader
+#'
+#' @description Expand the ui to \code{dashboardheader}.
+#' @param header \code{dashboardheader}.
+#' @param left The left menu in the header.
+#' @examples
+#' if (interactive()) {
+#'   library(shinydashboard)
+#'   dashboardheader() %>%
+#'     expandHeader()
+#'   )
+#' }
+#' @rdname expandHeader
+#' @export
+expandHeader <- function(.header, left = NULL) {
+  header <- htmltools::as.tags(.header)
+  nav_index <- which(as.character(sapply(header$children, `[[`, 1)) == "nav")
+
+  if (!is.null(left)) {
+    left_menu <- shiny::tags$div(
+      class = "navbar-custom-menu left",
+      style = "float: left; margin-left: 10px;",
+      shiny::tags$ul(
+        class = "nav navbar-nav",
+        left
+      )
+    )
+    header$children[[nav_index]] <- htmltools::tagInsertChildren(header$children[[nav_index]], after = 2, left_menu)
+  }
+  return(header)
+}

inst/examples/app.R

@@ -20,7 +20,7 @@ ui <- dashboardPage(
       )
     ),
     palettePanelUI("palette-panel")
-  ),
+  ) %>% expandHeader(left = actionButton("test-left", "Test")),
   dashboardSidebar(
     sidebarMenu(
       id = "tabs",