R/bulma-footer.R

In JohnCoene/shinybulma: Bulma for Shiny

#' Add a footer
#'
#' Add footer
#'
#' @inheritParams bulmaPage
#' @param container If \code{TRUE} wraps a \code{\link{bulmaContainer}} as a children of the section.
#' @param centered wheter to center the text.
#'
#' @examples
#' if(interactive()){
#' library(shiny)
#'
#' ui <- bulmaPage(
#'   bulmaHero(
#'     fullheight = TRUE,
#'     color = "primary",
#'     bulmaHeroHead(
#'       bulmaContainer(
#'         bulmaTitle("Hero Title")
#'       )
#'     ),
#'     bulmaHeroHead(
#'       bulmaContainer(
#'         bulmaSubtitle(
#'           "Some content"
#'         )
#'       )
#'     ),
#'     bulmaHeroFoot(
#'       bulmaContainer(
#'         "The footer"
#'       )
#'     )
#'   )
#' )
#'
#' server <- function(input, output){}
#'
#' shinyApp(ui, server)
#' }
#' 
#' @author John Coene, \email{jcoenep@@gmail.com}
#' @export
bulmaFooter <- function(..., container = TRUE, centered = TRUE){

  cl <- "content"

  if(isTRUE(centered)) cl <- paste(cl, "has-text-centered")

  shiny::tags$footer(
    if(isTRUE(container)){
      shiny::tags$div(
        class = "container",
        shiny::tags$div(
          class = cl,
          ...
        )
      )
    } else {
      shiny::tags$div(
        class = cl,
        ...
      )
    }
  )
}