R/dashboard_header.R

In jasoncareyco95/R-SkyBox: User SkyBox

#' Dashboard Header
#'
#' Controls elements of the dashboard header.
#' 
#' @export
#' @importFrom bs4Dash dashboardHeader dashboardBrand
dashboard_header <- function() {
  dashboardHeader(
    title = dashboardBrand(
      title = "SkyBox",
      color = "purple",
      href = "https://github.com/jasoncareyco95/R-SkyBox",
      image = NULL
    ),
    leftUi = NULL,
    rightUi = NULL,
    controlbarIcon = shiny::icon("ellipsis-v")
  )
}