R/argonColumn.R

In RinteRface/argonR: R Interface to Argon HTML Design

#' Create a Boostrap 4 column
#'
#' Build an argon column
#'
#' @param ... Any UI element.
#' @param width Optional. Column width between 1 and 12.
#' @param center Whether to center column elements or not. FALSE by default.
#' @param offset Column offset. NULL by default. Importantly, offset + width cannot exceed 12!
#' 
#' @examples 
#' if (interactive()) {
#'  library(argonR)
#'  argonColumn(
#'   width = 4,
#'   argonAlert(
#'     icon = "basket",
#'     status = "danger",
#'     "This is an alert",
#'     closable = TRUE
#'   )
#'  )
#' }
#' 
#' 
#' @author David Granjon, \email{dgranjon@@ymail.com}
#'
#' @export
argonColumn <- function (..., width = NULL, center = FALSE, offset = NULL) {
  colCl <- "col-sm"
  if (!is.null(width)) colCl <- paste0(colCl, " col-sm-", width)
  if (!is.null(offset)) colCl <- paste0(colCl, " offset-sm-", offset)
  if (center) colCl <- paste0(colCl, " text-center")
  htmltools::tags$div(class = colCl, ...)
}