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