R: Create a header for a dashboard page

dashboardHeaderPlus {shinydashboardPlus} | R Documentation

## Create a header for a dashboard page

### Description

A dashboard header can be left blank, or it can include dropdown menu items on the right side.

### Usage

    dashboardHeaderPlus(..., title = NULL, titleWidth = NULL,
      disable = FALSE, .list = NULL, left_menu = NULL,
      enable_rightsidebar = FALSE, rightSidebarIcon = "gears",
      fixed = FALSE)

### Arguments

`...` | Items to put in the header. Should be `dropdownMenu`s.
`title` | An optional title to show in the header bar.. By default, this will also be used as the title shown in the browser's title bar. If you want that to be different from the text in the dashboard header bar, set the `title` in `dashboardPagePlus`.
`titleWidth` | The width of the title area. This must either be a number which specifies the width in pixels, or a string that specifies the width in CSS units.
`disable` | If `TRUE`, don't display the header bar.
`.list` | An optional list containing items to put in the header. Same as the `...` arguments, but in list format. This can be useful when working with programmatically generated items.
`left_menu` | Items that will appear on the left part of the navbar. Should be wrapped in a tagList.
`enable_rightsidebar` | Whether to enable the right sidebar. FALSE by default.
`rightSidebarIcon` | Customize the trigger icon of the right sidebar.
`fixed` | Whether the navbar is fixed-top or not. FALSE by default.

### Note

We do not recommend to insert shiny input elements (such as sliderInput) in the left menu, since they will not be well displayed. Instead, wrap them in a `dropdownBlock`

### See Also

`dropdownMenu`

### Examples

    if (interactive()) {
     library(shiny)
     library(shinyWidgets)
     library(shinydashboard)
     library(shinydashboardPlus)

     shinyApp(
      ui = dashboardPagePlus(
        header = dashboardHeaderPlus(
          enable_rightsidebar = TRUE,
          rightSidebarIcon = "gears",
          left_menu = tagList(
            dropdownBlock(
              id = "mydropdown",
              title = "Dropdown 1",
              icon = "sliders",
              sliderInput(
                inputId = "n",
                label = "Number of observations",
                min = 10, max = 100, value = 30
              ),
              prettyToggle(
                inputId = "na",
                label_on = "NAs keeped",
                label_off = "NAs removed",
                icon_on = icon("check"),
                icon_off = icon("remove")
              )
            ),
            dropdownBlock(
              id = "mydropdown2",
              title = "Dropdown 2",
              icon = "sliders",
              prettySwitch(
                inputId = "switch4",
                label = "Fill switch with status:",
                fill = TRUE,
                status = "primary"
              ),
              prettyCheckboxGroup(
                inputId = "checkgroup2",
                label = "Click me!",
                thick = TRUE,
                choices = c("Click me !", "Me !", "Or me !"),
                animation = "pulse",
                status = "info"
              )
            )
          ),
          dropdownMenu(
            type = "tasks",
            badgeStatus = "danger",
            taskItem(value = 20, color = "aqua", "Refactor code"),
            taskItem(value = 40, color = "green", "Design new layout"),
            taskItem(value = 60, color = "yellow", "Another task"),
            taskItem(value = 80, color = "red", "Write documentation")
          )
        ),
        sidebar = dashboardSidebar(),
        body = dashboardBody(
          setShadow(class = "dropdown-menu")
        ),
        rightsidebar = rightSidebar(),
        title = "DashboardPage"
      ),
      server = function(input, output) { }
     )
    }

[Package shinydashboardPlus version 0.6.0 Index]