Add centered parameter to bulma_columns()

R/columns.R

@@ -7,6 +7,7 @@
 #' @param gap Gap between colums, integer from 0 to 8
 #' @param multiline Should columns wrap to multiple lines (allows columns whose
 #'   width or size add up to more than the screen width).
+#' @param centered Should columns be centered on the screen?
 #' @param class Extra classes that should be applied to the `columns` container.
 #' @param style CSS styles applied to the `columns` container.
 #' @param column_options Column options to be applied to each column. Use
@@ -17,6 +18,7 @@ bulma_columns <- function(
   breakpoint = "tablet",
   gap = NULL,
   multiline = TRUE,
+  centered = FALSE,
   class = NULL,
   style = NULL,
   column_options = NULL
@@ -35,7 +37,8 @@ bulma_columns <- function(
     paste(unlist(class), collapse = " "),
     breakpoint,
     gap, if (length(gap)) "is-variable",
-    if (multiline) "is-multiline"
+    if (multiline) "is-multiline",
+    if (centered) "is-centered"
   )
 
   ret <- tag("div", list(class = str_trim(class), style = style,

man/bulma_columns.Rd

@@ -5,7 +5,7 @@
 \title{Bulma Columns}
 \usage{
 bulma_columns(..., breakpoint = "tablet", gap = NULL,
-  multiline = TRUE, class = NULL, style = NULL,
+  multiline = TRUE, centered = FALSE, class = NULL, style = NULL,
   column_options = NULL)
 }
 \arguments{
@@ -19,6 +19,8 @@ out. See \code{viewport} option in \code{\link[=bulma_responsive]{bulma_responsi
 \item{multiline}{Should columns wrap to multiple lines (allows columns whose
 width or size add up to more than the screen width).}
 
+\item{centered}{Should columns be centered on the screen?}
+
 \item{class}{Extra classes that should be applied to the \code{columns} container.}
 
 \item{style}{CSS styles applied to the \code{columns} container.}