R/dashboardFooter.R

In RX-PBB/bs4Mash: A 'Bootstrap 4' Version of 'shinydashboard'

#' Create a Boostrap 4 dashboard footer
#'
#' Build an adminLTE3 dashboard footer
#'
#' @param ... Left text.
#' @param copyrights Copyrights, if any.
#' @param right_text Right text.
#' @param fixed Whether to fix the footer. Default to FALSE.
#' 
#' @author David Granjon, \email{dgranjon@@ymail.com}
#'
#' @export
bs4DashFooter <- function(..., copyrights = NULL, right_text = NULL, fixed = FALSE) {

  shiny::tags$footer(
    class = "main-footer",
    `data-fixed` = tolower(fixed),
    # right element
    shiny::tags$div(
      class = "float-right d-none d-sm-inline",
      right_text
    ),
    # left element
    shiny::tags$strong(
      copyrights
    ),
    ...
  )
}