refactor header

Author: markomi

NAMESPACE

@@ -5,4 +5,5 @@ export(app_ui)
 export(dash)
 export(fun_calc_prop)
 export(fun_calc_t)
+export(get_header_mint)
 export(run_shiny)

R/app_ui.R

@@ -8,7 +8,7 @@
 app_ui <- function(){
   mod <- fun_get_mods()
   dashboardPage(
-    header_unibas("SSE app"),
+    get_header_mint("SSE app"),
     dashboardSidebar(
       div(p(" ")),
       sidebarMenu(

R/fun_header_unibas.R renamed to R/fun_get_header_mint.R

@@ -1,22 +1,27 @@
-# define header
-header_unibas <- function(header_label){
+#' Shinydashboard two-color custom mint header
+#'
+#' @param header_title string containing a header title
+#' @return shiny.tag list with a custom header with title as defined in header_title
+#' @export
+#'
+get_header_mint <- function(header_title){
   header <- dashboardHeader(
-    title = header_label,
+    title = header_title,
     tags$li(class = "dropdown"))
-
+  ## custom adapt by adding aditional components
   header$children[[4]] <- header$children[[2]]
   header$children[[4]]$children[[1]] <- header$children[[2]]
   header$children[[4]]$children[[2]] <- header$children[[2]]
   header$children[[4]]$children[[2]]$children[[1]] <- header$children[[2]]
   header$children[[4]]$name <- "div"
   header$children[[4]]$attribs$class <- "custom-head"
-  # uni basel header row
+  ## first mint header row
   header$children[[4]]$children[[1]]$name <- "aside"
-  header$children[[4]]$children[[1]]$attribs$class <- "unibas"
+  header$children[[4]]$children[[1]]$attribs$class <- "uni"
   header$children[[4]]$children[[1]]$children <- NULL
-  # dkf/faculty header row
+  ## second mint header row
   header$children[[4]]$children[[2]]$name <- "aside"
-  header$children[[4]]$children[[2]]$attribs$class <- "dkf"
+  header$children[[4]]$children[[2]]$attribs$class <- "dep"
   header$children[[4]]$children[[2]]$children <- NULL
   return(header)
 }

inst/www/custom.css

@@ -4,12 +4,12 @@
   height: 45px;
 }
 
-.skin-blue .main-header .custom-head .unibas{
+.skin-blue .main-header .custom-head .uni{
   background-color: #a5d7d2;
   height: 64px;
 }
 
-.skin-blue .main-header .custom-head .dkf{
+.skin-blue .main-header .custom-head .dep{
   background-color: #a5d7d2;
   height: 4px;/*48px;*/
 }