Fix #3 bulma_columns() recognizes single bulma_column

R/columns.R

@@ -24,6 +24,7 @@ bulma_columns <- function(
   column_options = NULL
 ) {
   items <- dots2list(...)
+  if (is_bulma_column(items)) items <- list(items)
   if (!is.null(column_options) && !inherits(column_options, "bulma_column_options")) {
     rlang::abort("Please use bulma_column_options() to specify `column_options`")
   }
@@ -42,7 +43,7 @@ bulma_columns <- function(
   )
 
   ret <- tag("div", list(class = str_trim(class), style = style,
-                         map_arg(items, .f = bulma_column, .arg = column_options)))
+                         map_arg(items, .f = bulma_column, .args = column_options)))
   ret <- tagList(ret)
   class(ret) <- c("bulma_columns", class(ret))
   ret

tests/testthat/test-columns.R

@@ -14,3 +14,13 @@ test_that("bulma_column_narrow() handles viewport and logical", {
   expect_warning(bulma_column_narrow(c("touch", "desktop")))
   expect_warning(bulma_column_narrow(c("touchscreen", "touch")))
 })
+
+test_that("bulma_columns() with single bulma_column()", {
+  expected <- '
+  <div class="columns is-tablet is-multiline">
+    <div class="column">
+      Test
+    </div>
+  </div>'
+  expect_html_chr(bulma_columns(bulma_column("Test")), expected)
+})