R/dashboardFooter.R

In shinydashboardPlus: Add More 'AdminLTE2' Components to 'shinydashboard'

#' Dashboard Footer
#'
#' This creates a dashboard footer 
#' 
#' @param left Left text.
#' @param right Right text.
#' @examples
#' if (interactive()) {
#' library(shiny)
#' library(shinydashboard)
#' library(shinydashboardPlus)
#' 
#' shinyApp(
#'   ui = dashboardPage(
#'     header = dashboardHeader(),
#'     sidebar = dashboardSidebar(),
#'     body = dashboardBody(),
#'     footer = dashboardFooter(
#'      left = "By Divad Nojnarg",
#'      right = "Zurich, 2019"
#'     ),
#'     title = "DashboardPage"
#'   ),
#'   server = function(input, output) { }
#' )
#' }
#' @export
dashboardFooter <- function(left = NULL, right = NULL) {
  htmltools::tags$footer(
    class = "main-footer",
    shiny::tags$div(class = "pull-right hidden-xs", right),
    left
  )
}